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I.  INTRODUCTION 


A  chemical  laser  weapons  system  Is  a  complex  device  that  requires 
an  amalgamation  of  various  scientific  disciplines.  These  include  chemical 
kinetics,  optics,  fluid  dynamics,  quantum  mechanics,  etc.  The  interaction 
of  these  vsrinus  disciplines  are,  at  best,  complicated.  However,  it  remains 
that  if  a  high  energy  chemical  laser  weapons  system  is  to  be  built  success¬ 
fully,  it  is  necessary  that  this  interaction  be  understood. 

A  considerable  effort  has  been  made  to  analyte  an  entire  chemical 
laser  system  from  an  engineering  point  of  view,  to  describe  such  as  sys¬ 
tem  by  a  set  of  governing  equations,  and  finally,  to  simulate  a  chemical 
laser  system  through  solution  of  the  governing  equations  utilizing  the 
Chemical  Laser  Analysis  Program  (CLAP) . 

The  CLAP  program  was  developed  primarily  from  a  fluid  dynamics 
viewpoint  which  essentially  means  that  specific  laser  power  la  purposely 
not  calculated,  but  is  obtained  from  experimental  data.  This  probably 
enhances  the  credibility  of  the  results  obtained  by  the  use  of  the 
program  since  the  calculation  of  specific  power  would  be  closely  tied 
to  all  the  fluid  dynamical  and  reaction  kinetics  calculation  techniques 
and  subject  to  those  uncertainties  plus  the  uncertainties  Inherent  in 
the  specific  power  calculation  itself.  CLAP  does,  however,  consider  all 
other  aspects  of  a  chemical  laser  system,  including  the  combustion 
chemistry,  gas  dynamics,  and  masa/volume  estimates. 

CLAP  was  designed  specifically  as  a  tool  for  the  rapid  parametric 
evaluation  of  proposed  chemical  laser  systems.  Pursuant  to  this  goal, 
the  program  was  written: 

a)  By  using  simple  methods  of  analysis,  in  particular,  the 
one- dimensional  methods  of  gas  dynamics  wherever  possible. 

b)  For  minimum  user  Input  requirements  with  over  22  user  controlled 
options  for  maximum  flexibility. 

c)  For  use  in  an  interactive  mode  for  minimum  turn-around  time  and 
maximum  user  convenience. 

d)  In  a  stacked  or  series  configuration  to  maximize  calculational 
efficiency  and  minimize  user  costs. 

Although  written  to  reflect  the  state-of-the-art  in  chemical  laser 
technology,  the  authors  realize  that  most  users  will  wish  to  modify  the 
code  with  minimum  effort  for  their  own  unique  studies.  To  this  end  the 
program  was  written: 

a)  With  a  consistent  notation  scheme  throughout  and  a  single  system 
of  units,  the  SI  (metric)  system. 
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b)  With  a  considerable  amount  ot  Internal  documentation  such  that 
most  any  user  with  a  basic  knowledge  of  chemical  laser  systems  can  com¬ 
prehend  the  background  theory  a.id  logic. 

The  CLAP  program  listed  in  Appendices  A  through  E  was  written  in 
FORTRAN  EXTENDED  for  use  on  Control  Data  Corporation  computers  having 
an  INTERCOM  Version  4  interactive  capability,  but  is  readily  adapted  to 
run  on  other  machines  in  either  an  interactive  or  batch  mode. 


fl.  PROGRAM  ORGANIZATION 

A.  General 

CLAP  as  listed  in  Appendices  A  through  E  is  written  in  five 
overlays  consisting  of  the  root  overlay,  MAIN,  and  four  primary  overlays, 
COMBUSTION  CHEMISTRY  SECTION  (CCS),  LASER  DEVICE  SECTION  (LDS) ,  PRESSURE 
RECOVERY  SECTION  (PP.S) ,  and  SYSTEM  CALCULATION  SECTION  (SCS) .  Calcula¬ 
tions  are  performed  sequentially  through  the  primary  overlays  in  the 
following  order:  (1)  CCS,  (2)  LDS,  (3)  PRS,  and  (4)  SCS.  However,  it 
should  be  noted  that  the  pressure  recovery  and  system  calculation  sec¬ 
tions  are  optional.  Calculations  in  a  given  primary  overlay  are  executed 
only  if  the  input  data  are  changed  for  that  or  a  previous  overlay. 

Block  common  statements  are  used  to  store  the  output  from  each  pri¬ 
mary  overlay  in  the  root  overlay.  In  addition,  these  block  common  state¬ 
ments  serve  to  pass  information  between  primary  overlays  through  the 
root  overlay.  Variables  are  brought  info  a  given  program  or  subroutine 
through  COMMON  or  CALL  statements  only  if  actually  required.  A  block 
coamon-program/subroutine  cross  reference  la  Included  in  Table  1. 

Each  primary  overlay  has  its  own  input  and  output  subroutines, 

INCCS,  DUTCCS,  etc.  All  input  is  either  by  NAMELIST  or  alphanumeric 
symbols  (e.  g. ,  "YES"  and  "NO"),  Furthermore,  each  input  subroutine 
contains  default  values  for  the  input  variables  and  the  logic  to  store 
the  latest  input  data  on  a  separate  file,  TAPE1,  TAPE?,  etc.,  for  easy 
restarts.  A  list  of  these  and  other  TAPE/unit  definitions  are  given  in 
Table  2. 

All  calculations,  with  the  exception  of  one  subroutine,  DUTENG,  are 
performed  in  either  dimensionless  or  the  SI  system  of  units  following 
Mechtly  (1]. 

A  nomenclature  list  for  each  program  and  subroutine  is  given  in 
Appendix  F.  The  nomenclature  for  each  primary  overlay  follows  a  general 
scheme  whenever  possible  with  the  exceptions  defined  separately. 

As  an  aid  to  the  user,  the  CLAP  code  is  liberally  interspersed  with 
comment  statements  to  identify  the  purpose  of  the  program  or  subroutine. 
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Program/ 

Subroutine 

MAIN 
OUT  ENG 
CCS 
INCCS 
OUTCCS 

LDS _ 

INLDS 

LPNCS 

LSNCS1 

LSNCS2 

OUTLDS 

PRS 

INPRS~ 
OUTPRS 
SCS  ~ 
INSCS 
OUTSCS 

VMAW _ 

VMCS 

VMC2H4 

VMD2 

VMF2 

VMHE 

VMH2 

VMIRFNA 

VMMMH 

VMNF3 

VMN2 

VMN2H4 


BLOCK 

COMMON 

1 

IAIN3 

MAIN4 

MAINS 

MAIN6 

PRSi 

PRS2 

PRS3  PRS4 

PRS5 

PRS6 

SCSI 

SCS2 

SCSI 

SCS4  j 

SCS5 

SCS6  j  j 

TABLE  2.  TAPE/UNIT  DEFINITIONS 


TAPE  or  Unit  No. I  Purpose 


1  Binary  input/output  file  either  read  or  written 

from  subroutine  1NCCS  to  store  the  latest  input 
data  for  CCS. 
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Binary  input /output  file  either  read  or  written 
from  subroutine  INLDS  to  store  the  latest  input 
data  for  LDS. 


3 


4 


Binary  input /output  file  either  read  or  written 
from  subroutine  INPRS  to  store  the  latest  Input 
data  for  PRS. 

Binary  input /output  file  either  read  or  written 
from  subroutine  INSCS  to  store  the  latest  input 
data  for  SCS. 


I 


5 


6 


20 


30 


Connected  file  for  the  interactive  output  of 
information  to  the  CLAP  program  from  ..  terminal 
keyboard. 

Connected  file  for  the  interactive  input  of 
information  from  the  CLAP  program  to  a  CRT  dis¬ 
play. 

Formatted  output  file  written  from  subroutines 
DUTCCS,  DUTLDS,  DUTPRS,  and  DUTSCS  to  print  the 
results  of  the  CLAP  program  in  SI  units  on  132 
character  line  printers. 

Formatted  output  file  written  from  subroutine 
DUTENG  to  print  the  results  of  the  CLAP  program 
in  mixed  engineering  units  on  132  character  line 
printers. 


to  define  the  1. .put /output  variables,  and  to  describe  each  step  of  the 
calculations.  Furthermore,  a  system  of  failure  flags  and  error  messages 
have  been  set  up  to  assist  in  the  location  of  failures. 

B.  MAIN 

The  root  overlay,  MAIN,  calls  the  primary  overlays  in  sequence 
and  stores  the  output  of  the  primary  overlays. 
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Subroutine  DUTENG  contained  in  the  MAIN  overlay  converts  the  output 
of  the  CLAP  program  to  a  mixed  system  of  engineering  units  and  is  the 
only  subroutine  which  does  not  use  the  SI  system.  The  converted  vari¬ 
ables  are  stored  in  separate  core  locations  to  eliminate  the  need  of 
converting  back  to  SI  units,  thus  avoiding  any  nixed  unit  errors. 

C.  COMBUSTION  CHEMISTRY  SECTION  (CCS) 


The  primary  overlay  CCS  performs  all  the  combustion  chemistry 
calculations  for  the  laser  primary  combustor  and  laser  cavity  for  either 
DF  or  HF  laser  chemistry.  Any  primary  combustor  fuel  of  the  form 
Sll**N2  °r  Su°N2  an<*  any  PrlmarY  combustor  oxidizer  of  the  form  NN3FN4 

may  be  used.  Both  helium  and  nitrogen  are  allowed  as  diluents;  however, 
the  cavity  mirror  purge  gas  is  assumed  to  be  nitrogen. 

Because  of  differences  in  definitions  existant  in  the  laser  commu¬ 
nity,  some  of  the  variables  listed  in  the  nomenclature  for  CCS  require 
further  definition.  These  are: 


ALPHA 


a 


Fluorine  dissociation  fraction 

_ moles  F _ 

moles  F  +  2  moles  F„ 


PSIC 

*C 

PSIL 
4> 


L  - 


PSILTRW 


Molar  combustor  diluent  ratio 

moles  diluent  +  moles  other 
moles  F2  +  1/2  mole  F 

Molar  cavity  diluent  ratio 

moles  diluent  -f  moles  other 
moles  F2  +  1/2  mole  F 

Molar  cavity  diluent  ratio  (TRW  definition) 


^L-TRW 

OMEGA 

n 

OMEGTRW 


moles  diluent 


moles  Fj  +  1/2  mole  F 


Total  laser  molar  diluent  ratio 
*C  +  *L 

Total  laser  molar  diluent  ratio  (TRW  definition) 


it 
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Wf*-- 


% 
'p. . 


S'RW  "  ^  +  • 


I  -  TRW 


RC 


Molar  combustor  mixture  ratio 


R„  -  — 


moles  oxidizer 


moles  of  fuel  required  to  react 
stoichiometrically  with  all  the 
oxidizer 


RL 


Molar  cavity  mixture  ratio 


*L 


moles  of  cavity  fuel 


moles  +  1/2  mole  F 


RLF  -  Total  laser  cavity  mixture  ratio 

\f 


moles  of  cavity  fuel  +  moles  of  cavity  diluent 


moles  F^  +  1/2  mole  F 


D.  LASER  DEVICE  SECTION  (LDS) 


The  primary  overlay  LDS  performs  the  gas  dynamic  calculations 
for  the  laser  device  including  the  primary  and  secondary  nozzles  and  the 
laser  cavity.  All  calculations  are  based  on  1  kmole/s  of  laser  primary 


nozzle  flow;  henco,  the  units  on  flow  area,  for  example,  are  (s-itT) /kmole. 


No  attempt  was  made  to  predict  heat  loss  in  the  laser  nozzles,  nor 
was  any  rigorous  boundary  layer  analysis  applied  to  a  given  nozzle  pro¬ 
file.  Instead,  the  nozzle  stagnation  temperature  is  either  estimated  or 
taken  from  experimental  data  and  the  nozzle  boundary  layer  thickness  is 
computed  using  a  simple  correlation  equation  from  the  throat  to 
exit  plane.  All  the  nozzle  flow  is  assumed  to  pass  through  the  core  or 
"effective"  flow  area  as  shown  in  Figure  1.  Finally,  a  simple  correction 
is  applied,  namely  adjusting  the  number  of  nozzles  for  1  kmole/s  of  pri¬ 
mary  flow,  to  correct  for  the  change  in  specific  heat  ratio  due  to 
temperature  change  from  the  nozzle  throat  to  exit. 


Totally  viscous,  subsonic  nozzle  flow,  i.e.  all  boundary  layer 
flow  in  converging-diverging  nozzles,  is  not  allowed  and  has  bean  the 
most  common  failure  encountered  with  the  CLAP  program  in  subroutines 
LPNCS  and  LSNCS1.  Constant-area,  sonic  secondary  laser  nozzles  are 
treated  separately  as  Fanno  flow  devices  in  subroutine  LSNCS2. 


Two  nozzle  calculational  procedures  are  followed.  For  the  primary 
nozzles,  either  the  nozzle  stagnation  temperature  is  specified  and  the 
stagnation  pressure  is  computed  or  vice  versa.  For  the  laser  secondary 
nozzles,  however,  the  stagnation  pressure  is  always  computed  for  a  given 
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Figure  1.  Laser  nozzle  boundary  layer. 


stagnation  temperature.  When  both  the  primary  nozzle  stagnation  temper¬ 
ature  and  pressure  are  known,  as  when  scaling  up  from  an  experimental 
device,  the  usual  procedure  is  to  match  both  experimental  values  by 
adjusting  the  primary  nozzle  throat  diameter,  D1S,  which  will  ordinarily 
vary  from  the  design  value  due  to  thermal  expansion  or  throat  errosion. 

The  complex  mixing  and  reacting  cavity  flew  is  broken  down  into 
three  simple  processes  separated  by  station  numbers  as  designated  in  the 
nomenclature  of  Appendix  F  and  illustrated  in  Figure  2.  First,  the 
effective  primary  and  secondary  nozzle  flows  are  n£8i'ir''d  to  mix  at 
constant-area  to  a  uniform  stream  and  then  expand  isentropically  to  the 
full  cavity  flow  area  at  the  nozzle  face.  Next,  the  mass  addition, 
chemical  reaction,  and  accompanying  heat  release  calculations  are  carried 
out  step-wise  to  the  cavity  exit  similar  to  the  cavity  analysis  given 
by  Addy  and  Mikkelsen  [2]  and  outlined  in  Shapiro  [3].  Included  in  the 
cavity  analysis  is  an  empirical  flow  separation  test  after  Zukoski  [4] 
which  has  proven  to  be  an  important  criterion  in  laser  scale-up  design 
operations,  especially  for  devices  with  low  bank  relief  nozzles  [5]. 

The  specific  heat  at  constant  pressure  and  absolute  viscosity  data 
included  in  subroutines  CPCALC  and  VISC  were  taken  largely  from  two 
sources,  the  JANAF  [6]  and  NASA  [7]  tables,  respectively.  Subroutine 
VISC  computes  the  viscosity  of  gas  mixtures  using  the  semi-empirical 
formula  of  Wilke  [8]. 

E.  PRESSURE  RECOVERY  SECTION  (PRS) 

The  primary  overlay  PRS  performs  the  gas  dynamic  calculations 
for  the  laser  pressure  recovery  subsystem.  Again,  as  in  LDS,  all  cal¬ 
culations  are  baaed  on  1  kmole/s  of  laser  primary  nozzle  flow.  Most  of 
this  section  is  described  in  and  taken  from  Mikkelsen,  Sandberg,  and 
Addy  [2,  9,  10]. 
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The  PRS  overlay  calculations  are  optional;  however,  the  user  may 
select  from  three  pressure  recovery  subsystems  including  (1)  a 
supersonic-subsonic  diffuser;  (2)  a  supersonic-subsonic  diffuser  and 
constant-area,  subsonic-supersonic  ejector;  and  (3)  a  constant-area, 
supersonic-supersonic  ejector.  The  constant-area,  supersonic-supersonic 
ejector  analysis  differs  only  slightly  from  that  of  Mikkelsen,  et  al. , 
in  that  a  Zukoski  (4)  type  of  separation  criteria  has  been  added  to  the 
options  for  limiting  ejector  operation.  A  flow  schematic  for  the  pres¬ 
sure  recovery  options  with  station  numbers  corresponding  to  the  nomen¬ 
clature  of  Appendix  F  is  given  in  Figure  3. 

To  give  the  best  ejector  system  possible  as  well  as  minimize  user 
Inputs,  each  of  the  ejector  systems  are  optimized  to  give  the  minimum 
driver-to-driven  stream  mass  flow  ratio  for  a  specified  driver  stagnation 
pressure.  Care,  however,  is  required  since  impossible  pressure  recovery 
requirements,  either  too  high  or  too  low,  have  been  the  most  common  cause 
of  failures  in  the  optimization  routines.  Since  the  ejector  optimization 
routines  are  somewhat  more  time  consuming, usual  practice  with  proposed 
chemical  laser  designs  is  to  select  the  .supersshic-subsonic  diffuser 
option  and  to  vary  the  laser  device  flow  conditions  until  a  desired  pres¬ 
sure  recovery  at  the  subsonic  diffuser  exit  is  achieved. 

F.  SYSTEM  CALCULATION  SECTION  (SCS) 

The  primary  overlay  SCS,  using  output  from  the  other  primary 
overlays  and  system  scale-up  information,  estimates  the  mass  and  volume 
of  a  chemical  laser  system  including  reactants,  storage  tanks,  lines, 
supports,  regulators,  optics,  etc.  Unfortunately,  the  systems  analysis 
leading  to  the  computer  algorithms  is  too  extensive  to  include  in  this 
volume  but  will  be  published  later.  T.'iis  is  particularly  unfortunate 
since  the  analysis  is  not  readily  apparent  from  the  computer  code,  espe¬ 
cially  for  the  tank  factor  subroutines.  The  majority  of  the  work  is 
original  with  much  of  the  data  complied  from  Department  of  Defense  tech¬ 
nology  programs. 

Since  specific  power  calculations  have  been  avoided  in  CLAP,  the 
hypothetical  laser  system  is  scaled  to  size  by  specifying  the  mass  flow 
rate  of  free  fluorine  and  the  laser  run  time.  The  principal  dimensions 
are  then  readily  determined  since  the  mole  fraction  and  mole  flux  of 
free  fluorine  are  known  from  the  CCS  and  the  flow  area  in  LDS  and  PRS 
were  based  on  1  kmole/s  of  laser  primary  flow. 

An  example  of  a  single-ejector,  a  single-bank  chemical  laser  config¬ 
uration  is  shown  in  Figure  4,  with  the  prinicpal  dimensions  of  the  tran¬ 
sition  piece  and  subsonic-supersonic  ejector  given  in  Figures  5  and  6. 

The  subsonic-supersonic  ejector  is  of  the  variable-area  type  which  should 
just  meet  the  theoretical  constant-area  ejector  performance  calculated 
in  PRS.  A  supersonic-supersonic  ejector  option  (Figure  7)  is  included 
in  SCS;  however,  this  particular  configuration  is  an  untested  design 
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Figure  5.  Subsonic-supersonic  ejector  transition  piece. 


and  strictly  proposed  for  comparison  with  subsonic-supersonic  ejector 
systems.  More  than  one  laser  bank  and  more  than  one  ejector  per  bank 
may  be  specified,  but  the  total  number  of  ejectors  per  bank  is  limited 
such  that  the  height-to-width  ratio  at  the  transition  section  entrance 
is  no  greater  than  unity. 

Storage  tank  volume/mass  subroutines  are  included  in  SCS  for  laser 
fuels  ^2^4’  H2’  an<*  °2’  *or  *a8er  oxidizers  and  NF^»  and  for  laser 

diluents  He  and  H^.  Helium  is  stored  as  a  mixture  with  the  fluorine 

oxidizer  when  used  only  as  a  primary  diluent.  N^H^  *s  in°iuded  as  a 

roonopropellant  ejector  driver  fluid  and  IRFNA/MMH  for  a  biopropellant 
system.  Similar  volume/mass  subroutines  were  written  for  the  laser 
cooling  system  and  nitrogen-driven  aero-window. 

The  laser  reactants  may  be  stored  in  a  number  of  ways  given  in  the 
listing  for  each  volume/mass  subroutine  and  summarized  in  the  reactant 
storage  mode  nomenclature  of  Appendix  F.  Cryogenic  storage  options 
utilizing  a  triple  vacuum  Jacket  and  liquid  nitrogen  boil-off  for  ther¬ 
mal  protection  are  included  for  most  of  the  reactants.  Gases  are  always 
delivered  with  a  blow-down  system  whereas  liquids  are  delivered  via 
pressurized  gas,  pump  feed,  or  heater  pressurization  systems  as  illus¬ 
trated  in  Figures  8,  9,  and  10.  Water  is  delivered  to  the  cooling 
system  by  the  same  schemes  used  for  other  liquid  reactants  with 
the  addition  of  a  radiator- fan-pump  recirculation  system  shown  sche¬ 
matically  in  Figure  11. 
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Figure  10.  Heater  pressurization  system. 
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Figure  11.  Radiator- fan- pump  cooling  system. 
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III.  PROGRAM  INPUT  DATA 


Inputs  to  CLAP  are  either  by  namelist  or  by  alphanumeric  symbols, 
usually  "YES"  or  "NO"  unless  otherwise  specified.  Two  example  cases 
are  given  In  Appendix  G,  one  using  only  the  built-in  default  values  and 
the  second  demonstrating  most  of  the  input  options. 

A.  COMBUSTION  CHEMISTRY  SECTION  (CCS) 

Inputs  to  CCS  are  fairly  straightforward.  The  reactant  mass 
flow  rates  must  correspond  with  the  area  of  the  experimental  device, 

AEXP,  but  need  not  be  scaled  for  any  particular  laser  system  since  only 
the  mole  fluxes  are  important.  The  area  of  the  experimental  device, 

AEXP,  refers  only  to  the  nozzle  bank  area  as  defined  in  the  input  section 
for  the  LDS  overlay. 


The  input  variables  for  CCS  are: 


AEXP 

ALPHA 

DFORHF 


N1 

N2 

N3 

N4 

WPG 

WPR1 

WPR2 

WPR3 

WPR4 

WSR1 

WSR2 

WSR3 


2 

Nozzle  bank  area  of  the  experimental  device  [m  ]. 
Fluorine  dissociation  fraction. 

Control  variable  such  that: 

"DF"  for  a  DF  chemical  laser. 

"HF"  for  a  HF  chemical  laser. 

Number  of  carbon  atoms  in  primary  combustor  fuel  WPR1. 
Number  of  hydrogen  (deuterium)*  atoms  in  primary  com¬ 
bustor  fuel  WPR1. 

Number  of  nitrogen  atoms  in  primary  combustor  oxidizer 
WPR4. 

Number  of  fluorine  atoms  in  primary  combustor  oxidizer 
WPR4. 

Mass  flow  rate  of  mirror  purge  Nj  (kg/s). 


Mas  8 

flow 

rate 

of 

<CH1 

°N2^ 

(kg/s). 

Mass 

flow 

rate 

of 

Mass 

flow 

rate 

of 

Mass 

flow 

rate 

of 

Mass 

flow 

rate 

of 

primary  combustor  fuel 


primary  combustor  diluent  He  (kg/s), 
primary  combustor  diluent  N^  (kg/s). 

primary  combustor  oxidizer  N{j3FN^(kg/s) . 

secondary  reactant  (H^)  (kg/s) . 


Mass  flow  rate  of  secondary  diluent  He  (kg/s) . 
Mass  flow  rate  of  secondary  diluent  N£  (kg/s). 


B.  LASER  DEVICE  SECTION  (LDS) 


The  inputs  to  LDS  consist  primarily  of  the  principal  device 
dimensions  illustrated  in  Figures  12,  13,  and  l't  for  the  laser  nozzles, 
nozzle  bank/base,  and  laser  cavity. 


*Compounds  in  parenthesis  refer  to  HF  laser  chemistry. 
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Figure  12.  Laser  nozzle  detail. 


The  greatest  confusion  involves  the  difference  between  nozzle  bank 
and  nozzle  base,  and  packing  fraction  versus  bank  relief  fraction.  Early 
laser  demonstration  devices  had  a  nozzle  array  built  as  a  single  unit 
and  termed  a  nozzle  bank  with  Individual  nozzles  separated  at  the  face 
by  no-flow  areas  termed  base  relief.  With  the  advent  of  modular  devices, 
several  of  these  nozzle  banks  were  inserted  into  a  larger  unit  and  sep¬ 
arated  by  no-flow  areas  termed  bank  relief  to  form  a  nozzle  "base." 
Therefore,  nozzle  bank  area  refers  to  the  nozzle  array  inserts  while  the 
nozzle  base  area  includes  both  nozzle  banks  and  surrounding  bank  relief 
areas.  Considering  only  a  nozzle  bank,  the  packing  fraction  is  defined 


PKFRAC  - 


total  flow  (void)  area 
total  area 


nozzle  bank  area  -  base  relief  area 
nozzle  band  area 


Considering  the  entire  nozzle  base,  the  bank  relief  fraction  is  defined 


BRFRAC 


total  area  -  bank  relief  area  nozzle  bank  area 


total  area 


total  area 


t 

l 


Figure  13.  Laser  nozzle  bank/base  detail. 
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Figure  1A.  Laser  cavity  detail. 


where  Che  nozzle  bank  area  as  also  used  In  CCS  Inputs  Includes  both  voids 
and  base  relief. 

The  input  variables  for  the  LDS  overlay  are: 

BRFRAC  "  Bank  relief  fraction. 

CANGLE  ■  Laser  cavity  half-angle  (rad). 

D1  ■  Primary  nozzle  exit  diameter  (m). 

D1S  ■  Primary  nozzle  throat  diameter  (o) . 

D3  “  Secondary  nozzle  exit  diameter  (m). 

D3S  ■  Secondary  nozzle  throat  diameter  (m)*. 

GEOMTN  »  Primary  nozzle  control  variable  such  that: 

*  "AX"  for  axisynmetric  nozzles. 

■  "2D”  for  slit  nozzles. 

GEOMSN  *  Primary  nozzle  control  variable  such  that: 

■  "AX"  for  axisymmetric  nozzles. 

■  "2D"  for  slit  nozzles. 

HBASE  -  Height  of  nozzle  base  (m). 

HNB  *  Height  of  nozzle  bank  (m) . 

LCAV  *  Laser  cavity  centerline  length  (m) . 

LDSS2  ■  Control  variable  such  that: 

*  "P10"  to  specify  P10  and  solve  for  T10. 

■  "T10"  to  specify  T10  and  solve  for  P10. 

LPNOZ  *  Centerline  length  of  a  primary  nozzle  from  throat  to 
exit  plane  (m) . 

LSNOZ  •  Centerline  length  of  a  secondary  nozzle  from  throat  to 
exit  plane  (m) . 

NSPNOZ  *  Number  of  secondary-to-primary  nozzles. 

PKFRAC  *  Nozzle  packing  fraction. 

P10  -  Primary  combustor  or  nozzle  stagnation  pressure  (Pa). 

T10  *  Primary  combustor  or  nozzle  stagnation  temperature  (*K). 

T30  *  Secondary  nozzle  stagnation  temperature  (°K). 

T70  ■  Mirror  purge  stagnation  temperature  (°K). 

C.  PRESSURE  RECOVERY  SECTION  (PRS) 

The  number  of  inputs  to  PRS  depends  on  the  particular  pressure 
recovery  system  chosen  but  are  fairly  obvious  from  the  station  numbers 
of  Figures  3,  15,  16,  and  17.  A  full  discussion  of  the  variables  ETA12 
and  LIMIT  is  given  in  References  2  and  9. 

The  input,  variables  for  the  PRS  overlay  are: 

A3A2  »  Subsonic  diffuser  exit-to-entrance  area  ratio. 

A7A6  •  Subsonic  diffuser  exit-to-entrance  area  ratio. 

EJECT  ■  Control  variable  such  that: 

*  "NO"  for  no  pressure  recovery  subsystem. 

*NOTE:  D3  -  D3S  for  constant-area,  sonic  nozzles. 
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Figure  15.  Supersonic-subsonic  diffuser  detail. 
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Figure  16.  Constant-area,  subsonic-supersonic  ejector  detail. 
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Figure  17.  Constant-area,  supersonic-supersonic  ejector  detail 
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•  "DIF"  for  a  supersonic-subsonic  diffuaer  subsystem. 

•  "CAE"  for  a  constant-area,  subsonic-supersonic  ejector 
subsystem. 

-  "SSE"  for  a  constant-area,  supersonic-supersonic  ejector 
subsystem. 

•  Normal  shock  diffuaer  coefficient. 

»  Specific  heat  ratio  for  the  ejector  primary  or  driver 
stream. 

-  Control  variable  to  set  the  limiting  con  iition  oti 
constant-area,  supersonic-supersonic  ejector  operation 
such  that: 

-  "MPP"  for  the  matched  pressure  point. 

■  "ZSP"  for  the  Zukoski  separation  point , 

»  "ULP"  for  the  upper  limit  point. 

•  Molecular  weight  of  the  ejector  primary  or  driver  stream 
(kg/kmole) . 

«  Ejector  primary  or  driver  stagnation  pressure  (Pa). 

•  Ambient  pressure  (Pa). 


D.  SYSTEM  CALCULATION  SECTION  (SCS) 


Inputs  to  SCS  provide  scaling  and  configuration  information, 
select  an  ejector  driver  fluid  if  required,  and  determine  the  storage 
mode  for  each  laser  reactant. 


The  various  storage  mode  Inputs  are  too  numerous  to  list  but  consist 
entirely  of  simple  integer  Inputs  as  illustrated  in  Appendix  G.  The 
storage  mode  selection  display  for  each  reactant  is  output  by  the  computer 
code  and  requires  no  user  action. 


The  input  variables  for  the  SCS  overlay  ere: 


EREACT 


NBANK 

NEJECT 

RTIME 

WPP3 


Alphanumberic  symbol  for  the  ejector  primary  or  driver 
reactant. 

"N2H4"  for  a  monopropellant  driver. 

"IRFNA/MMH"  for  a  bipropellant  driver. 

Number  of  laser  banks. 

Number  of  ejectors  per  laser  bank. 

0,  for  the  maximum  allowable. 

Laser  run  time  (s). 

Free  fluorine  mass  flow  rate  (kg/s). 


IV.  CONCLUSIONS  AND  RECOMMENDATIONS 


Due  to  the  complexity  of  high  energy,  chemical  laser  systems,  a 
thorough  understanding  of  the  component  interactions  is  required  before 
a  practical  weapons  system  can  be  designed  and  fielded.  Attempts  to 
optimize  any  given  component  without  regard  to  the  total  laser  system 
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are  likely  fruitless.  CLAP  provides  a  quick,  convenient,  and  effective 
means  for  conducting  parametric  studies  of  a  total,  integrated  chemical 
laser  system,  thus  allowing  for  innovation  from  a  component  standpoint 
while  measuring  total  system  implications. 

CLAP  was  not  meant  to  be  sn  ultimate  means  of  chemical  laser  system 
design,  nor  will  the  one-dimensional  methods  and  empirical  volume/mass 
relations  allow  it  to  be.  Nonetheless,  experience  has  shown  that  if 
properly  used,  the  program  will  give  surprisingly  good  quantitative  a« 
well  as  qualitative  results;  furthermore,  if  used  with  ingenuity,  the 
program  can  simulate  most  laser  device  configurations  including  axiayrr- 
metric  and  slit  noesles,  plane  and  cylindrical  laser  cavities,  and  high 
or  low  bank  relief  geometries. 

To  further  develop  and  expand  the  usefulness  of  this  computer  code, 
a  detailed  description  of  the  individual  programs  and  subroutines  will 
be  published  together  with  the  background  analysis. 
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Appendix  A.  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) -OVER LAY  MAIN 
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MAIN 

0440 

DATA  CCS/3MCCS/.LOS/3HLOS/,AMS/3HAMS/,3CS/SHSCS/ 

MAIN 

0050 

DATA  SETCCS/3HYES/fSETL0S/3HYES/.SCTP0S/3HYFS/»5ETSCS/3HYCS/ 

MAIN 

OV40 

OAtA  CHOMC /SHCMOME /  ,  NO/IMNO/ ,  OE CALL /AHOEC  ALL / » YES/SHYCS/ 

MAIN 

0070 

c 

MAIN 

0400 

MAIN 

oooo 

-MSM1.MSMA.WSM3 

MAIN 

1000 

MAMIL1ST/NLLDS/4M00AC*CAN4LC  tOl , OtS, OStOSS »HN4*LCAV,LPN0J»LSN0J * 

MAIN 

1010 

-MSANOZf  AKMAC«M10*Tl0,T30«TT0 

MAIN 

1070 

NAMCLIST/NLPOS/A3A7, AT A4, ETA] 7, 4S.MWS, 0*0,07,750 

MAIN 

1030 

NAMCL I ST /NLSCS/NH  ANK , NE JE  Ct , *T I ME , MOP  3 

MAIN 

)040 

c 

MAIN 

10S0 

e 

MAIN 

1040 

Ct§» 

'•MAtN 

1070 

c* 

•MAIN 

1000 

c» 

COMMUSTtON  CMEMISTMY  SECTION 

•MAIN 

1000 

f 

•MAIN 

1100 

c*»* 

'•MAIN 

mo 

c 

MAtN 

mo 

c 

MAIN 

1130 

CALL  CONNECT) 

MAIN 

1140 

CALL  CONNEC(A) 

MAIN 

1150 

101 

eail»no 

MAtN 

1140 

CALL  OVFMLAY(CCS,l,0«SECALL) 

MAIN 

1170 

c 

MAIN 

1100 

c 

MAIN 

1140 
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APPEND!*  A 
PPOOPAN  MAIN 


CHEMICAL  LAMP  ANALYSIS  PPOPPAM  (CLAP) 
OVEPLAV  MAIN 


PAGE  A-  9 


c**» 

1200 

c» 

•MAIN 

1210 

c» 

L ASf P  DEVICE  SECTION 

•MAIN 

1220 

c« 

•MAIN 

1230 

c»«» 

1240 

c 

MAIN 

1250 

c 

MAIN 

1260 

CALL  OVEPLAY (LDS. 2.0. RECALL) 

MAIN 

12T0 

lEtEAiL.ro.res)  so  to  ios 

MAIN 

1200 

IE (ELON.EO. CHOKE)  00  TO  102 

MAIN 

12*0 

c 

MAIN 

1300 

c 

MAIN 

1310 

c*** 

1320 

CP 

•MAIN 

1330 

CP 

PPFSSUPE  PECOVEPV  SECTION 

•MAIN 

1340 

c* 

•MAIN 

1360 

C«t# 

13*0 

c 

MAIN 

13T0 

c 

MAIN 

1300 

CALL  OVERLAY (PRS. 3. 0 .RECALL ) 

MAIN 

13*0 

IEjEAIL.ro. VES)  00  TO  103 

MAIN 

1400 

c 

MAIN 

1410 

c 

MAIN 

1420 

CPpp 

i430 

c* 

•MAIN 

1440 

c* 

SYSTEM  CALCULATION  SECTION 

•MAIN 

1460 

CP 

•MAIN 

1460 

C*p* 

1*70 

c 

MAIN 

1480 

c 

MAIN 

14*0 

CALL  OVCPLAYCSCS, 4.0. RECALL) 

MAIN 

1500 

IF(EAIL.EO.VES)  60  TO  103 

MAIN 

1510 

c 

MAIN 

1520 

c 

MAIN 

1530 

c«pp 

1640 

CP 

•MAIN 

I960 

C* 

OUTPUT  RESULTS  IN  MIXED  CNOINECPINO  UNITS 

•MAIN 

1660 

c* 

•MAIN 

15T0 

C«*p 

1680 

c 

MAIN 

15*0 

? 

MAIN 

1600 

102 

CALL  0UTEN6 

MAIN 

1610 

c 

MAIN 

1620 

Cppp 

1630 

c« 

•MAIN 

1640 

c» 

CONTROL  SECTION 

•MAIN 

1*50 

c* 

•MAIN 

1660 

C#*p 

16T0 

c 

MAIN 

1680 

c 

MAIN 

1690 

103 

VPITE (Aj 104) 

MAIN 

1T00 

READ (5.1  OS) RUN 

MAIN 

IT10 

IE (PUN, CO. YES)  00  TO  101 

MAIN 

1T20 

104 

FORMAT ,p1p»TE.pTO  RESTART  PROGRAM  ENTER  "YCS"»*/.T2,pTO 

STOP  PROOPMAIN 

1T30 

-AM  ENTER  "NO"*) 

MAIN 

1T40 

AftftfNOU  A 

CMCMtCAt  IASCA  ANALYSIS  Aft Oft* AM  (ClA»> 

ovfnlay  main 

MAM 

A*  A 

io* 

FOMMATiAJ) 

MAIN 

|HI 

c 

MAIN 

IT** 

c 

MAIN 

ITT* 

CtM< 

1  TtO 

c* 

•MAIN 

I  T9* 

c* 

DUMMY  ftFAO/OftltF  STATCMFNTS 

•MAIN 

)«*0 

(• 

•MAIN 

1*10 

Clt»< 

it»e 

e 

MAIN 

1*39 

c 

MAIN 

194* 

STOP 

MAIN 

111* 

m 

MAO  111 

MAIN 

1M* 

•AITtMl 

MAIN 

I9T* 

MA0I9,NLCCS> 

MAIN 

l**» 

MAO  1 9.  MUDS) 

MAIN 

1994 

MA0(9,NlM*S> 

MAIN 

199* 

MA0(9,NLSCS) 

MAIN 

1910 

CMO 

MAIN 

1**0 
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AMPCNOlX  A  CmCNICAL  lt<M  ANALYSIS  M«0»AN  tCLAPl 

SUMOUTINC  OUTCNS  OVCPLAV  MAIN  MM  A-  s 


SUSPOUTINC  OUTCNS  OUTCNS  AI00 

c  OUtfNS  •) 10 

C  OUTCNS  A1C0 

€•••••••••••••••* ■••••••••••••••••••••••••••••••••••••••••••••••••••••••outcns  oise 

c*  •OUTCNS  AIAO 

C*  OUTPUT  SUMOUTINC  (OUTCNSl  »OUTCNS  0190 

C*  *OUTCNS  01 SO 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCNS  0170 

c  outcns  eiso 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCNS  Oise 

€•  • OUTCNS  0700 

C«  SUMOUTINC  OUTCNS  MINTS  TMC  SCSUtTS  07  PftOMAM  CLAN  IN  MIXCO  •  OUTCNS  0710 

C*  CNS1NCCNINS  UNITS  ON  TCSMlNALS  WITH  A  MINIMUM  OF  U?  CHASACTCSS  •OUTCNS  0770 

C«  MC*  LINA.  AOUTCNS  0730 

C*  • OUTCNS  0740 

(^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCNS  OH! 

C  OUTCNS  0780 

C  OUTCNS  0770 

INMUCIT  ACAL  CL»m»n)  OUTCNS  07A0 

C  OUTCNS  0790 

INTCSCO  N0ANN,NCJCCT,N1,N2,N3,N4  OUTCNS  0300 

C  OUTCNS  0310 

COMMON/CCS7/CCS1 'ALPHA, CCS?<8)  OUTCNS  0370 

C  OUTCNS  0330 

COMMON/CCSS/OrOMHC  OUTCNS  0340 

C  OUTCNS  0390 

COMMAN/CCS4/CCS3  OUTCNS  0300 

C  OUTCNS  0370 

COMMON /CCSS/N1 'N?'N3*N4  OUTCNS  0300 

C  OUTCNS  0390 

COMMON/CCSO/OMZ8AtOMCATAM.ASIC«ASIL<PSlLTSM»ftC*RLCtwCCI»l«WFCN3*  OUTCNS  0400 

-MfCP3.WrCP4.MrCP9.NCCP4  OUTCNS  0410 

C  OUTCNS  0470 

C0MM0N/CCS7/CCS4  OUTCNS  0430 

C  OUTCNS  0440 

COMMON/CCSI/RL  OUTCNS  0490 

C  OUTCNS  04S0 

COMMON/CCS1 1/W7W7  OUTCNS  0470 

C  OUTCNS  0480 

COMMON/CCS 1 7/XCCP 1 ( ? ) <  XFCP? ( ? >  * XCCP3  <7 ) * XCCP4 ( 7 ) «  XCCP9 (71* XCCP6 ( 7) OUTCNS  0490 

C  OUTCNS  0900 

COHMON/LOS7/LOS1 (4) •6COHPN,«CONSN,LOSS7tLOS7(7) ( NSANOZ • AKFAACi  OUTCNS  0910 

~LDS3 (4)  OUTCNS  0970 

C  OUTCNS  0930 

COMMON/LOS3/LDS4, A1A1SC* A1 AjSStLOSS <?> tA3A3SC.A3A3SS.L0S6 (351 OUTCNS  0940 
•PC3*PCS»L0ST(73) .W9W7,W6W7. WOW?. LOSS, X4X7,X5X7,X8X?,XTX?,XAX7  OUTCNS  0990 

C  OUTCNS  09S0 

COMMON /LDS4/LDS9 MO)  OUTCNS  0970 

C  OUTCNS  09S0 

COMMOM/LD$9/BRMAC.LDS10(4)  OUTCNS  0990 

C  OUTCNS  0800 

COMMON/LDSA/LOSU (?) «W4W?  OUTCNS  0810 

C  OUTCNS  0870 

COMMON/M A I N7/CLOW  OUTCNS  0830 

C  OUTCNS  0840 


tHfNDII  A 
SUft* OUT  INC  OUTFNt 


CMfMICAL  LAIC*  ANALYSIS  RRCRRAM  ICLAH 

overlay  main 


TAN  A.  S 


C 

c 

c 

c 

c 

c 

c 

c 

e 


e* 

c« 

c« 

c»* 

c 

c 


COMMON /WH/WI |  (» >  .rTAF3.CTA4T.RRSt (40)  .MtMl .RRS3.H4M1 *M4M) ,MTM) 

■iniiTnt.iai.Mii.mhiui 

COMMON /RRS3/A3AC«AVA4.CTAlt.LINtT.RRS9 (3) 

COMMON /RRS4/RRS4 ( 3  »  ,  NSM 1 

COMMON /MNSS/IJCCT 

COMMON /RRS4/RRS7 (?) 

COMMON/SCSl/SCSS? 

COMMON/SCSC/CRCACT tNOANR «NC  JCCT.RTINC .SCSI 
COMMON/SCS3/SCS3  (4? > 

COMMON/SC J5/STNODC (10*10) 

data  CAf /3MCAC/*CHOKC/SNCMOXE/*DF/CMDF/*HF/CMMF/*NRR/3MMRR/. 
•N0/CHN0/*SCR/3MSCR/*SSC/3MSSC/*ULR/3HULR/*ZSR/SHISR/ 


COMBUSTION  CMCNISTNY  section 


ACXR-CCSI/4.4914C-04 

FDAA«CCS3*4.49140C-Q1 

t*CCSMI,)«|lt(>t« 

mro*ccsc(1)«i.oc*o3 

MRRlaCCSC (C) *1 «0E*03 
MRRt-CCStOlM.Of.03 

MRRj-cesc <4 i • i . sc ♦ a 3 

MRR4*CCSt (9) M .Of *03 
MtA)-CCSf  (A>M.0C.O3 
MSRC»CCSt(T)M.Of.03 
MSR3-CCSt<0)M.0f»03 


CALL  DATS (RpATC) 

MRITC (30.101 >ROATC 

IF tpFORHF.CQ.DF)  MRITC (30* tOt) ACXR.ALRHA.0F0RHF.N1 ,Nt*N3 .N4.MR4* 
-MRRl,Nl,Nt*MRRt.NRR3.MRR4.N3.N4*MSRt.MSR?,MSR3 
IF (QFORHF.CQ.HF)  MRITC (30*003) ACXR.ALRHA.DF0RHF.N1.NC.N3.N4.MRS* 
-MRRl«UltN0*MRR0*MRR3.MRR4*N3*N4«MSRl(MSR0*MSR3 

MRITC (30 *004 >FOAA|OMCOA*OMCOTRM*R$IC»RS1l*RSILTRW«Q.RC*RL*RLF  _ 

IF (DFORHF.CO.DF)  MRITC (30. 009) MFCR1.XFCRKO)*MFCRO*XFCRO(0)*MFCR3(OUTCNO 
•XFCR3(0)*MFCR4.XFCR4(0)*MFCF9*XFCR9(C) *MFCF6*XFCRS(0)  outcno 

IF (OFORHF .CO.HF)  MRITC (30*000) MFCRl*XFCRi(0)*MFeR0.xFCRO(0)*MFCR3. outcno 
-XFCR3 ( 0 ) «  MFCR4 • XFCR4 ( 0 ) • MFCRS  * XFCRO ( C ) »  MF  CRfc . XF  SR4 ( C  >  OUTCNO 

OUTCNO 


•OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTtNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTtNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

••OUTCNO 

•OUTCNO 

•OUTtNO 

•OUTCNO 

••OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTtNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTtNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTtNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 

OUTCNO 


•SOS 

UU 

•STS 

III) 

•III 

•m 

•  Til 

•  ▼»• 

•  T30 

•  T4t 
ITU 
•TOO 
•TT* 
•TO# 
•m 
•too 
•oi  • 
•ut 

•B3« 
•04  • 
•090 

•  ••• 
•OTO 
•••• 
•Ml 
•lit 
•01  • 
Oltl 
•030 
•040 
•090 
SOOO 
•OTO 
•OBO 

•ooo 

1000 

1010 

loco 

1030 

1040 

1990 

UU 

loro 

1000 

loot 

not 

1110 

uce 

1130 

1140 

1190 

1140 

11T0 

1100 

1100 
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APPENOIX  * 
SUBROUTINE  OUTENO 


CHEMICAL  LASER  ANALYSIS  PROORAM  (CLAP) 
OVERLAY  MAIN 


PACE  A»  7 


OUTENO 

l?oo 

1210 

# 

•0UTCN8 

1220 

• 

LASER  DEVICE  SECTION 

•OUTENO 

1230 

• 

•0UTEN6 

1240 

#•* 

12S0 

0UTEN8 

1280 

OUTEN0 

1270 

A1*LDS4*7.03066E*02 

OUTENO 

1280 

A2*LDS5(1)*7.03066C*0? 

OUTENO 

1290 

A3«LDS5(?)*7.03066E*02 

OUTENO 

1300 

A4-LDS6 ( 1) •T.03066E*02 

OUTENO 

1310 

A5*L0S6 (?) •? • 03066E -0? 

0UTCN8 

1320 

A6aLDS6(3)*7.03066E«02 

OUTENO 

1330 

AO«L0S9(l)*7.03066E*02 

0UTEN6 

1340 

CAN0LE»LOSlOa)/1.7*S3?')?519943E-O? 

OUTENO 

1350 

01«L0Si|l)/2.34E-02 

OUTENO 

1380 

OIS-LOSJ (?>/?. 54E-02 

OUTENO 

1370 

D3-L0SI (3)/?.S4E-0? 

OUTENO 

13A0 

D3S-L0S1 (4)/2»54E-02 

OUTENO 

1390 

ai-L0S6/A) 

OUTENO 

1400 

e?-LDS6(5) 

OUTENO 

1410 

S3-L0S6(6) 

OUTENO 

1420 

04*LOS6(7) 

OUTENO 

1430 

05«L0S6(8) 

OUTENO 

1440 

06*L0S6(9) 

OUTENO 

)450 

07«LOS6(10) 

OUTENO 

1480 

00-L0S9(?l 

OUTENO 

1470 

H8ASE»LDS)0 (2) /2.54E-02 

OUTENO 

1480 

MNB.L0Si5(3)/2.54E-0? 

OUTENO 

1490 

LCAV»LPS1 0 (4 ) /2.54E-02 

OUTENO 

1500 

LPNOZ-LDS? ( 1 ) /2.54E-02 

OUTENO 

1510 

LSNOZ-LOS21?)/2.54E-02 

OUTENO 

1520 

LSEP-L0S6/ I 1 ) /2.54E-02 

OUTENO 

}S30 

MVi«L0S6(J2) 

OUTENO 

1540 

MV?«L0S6(J3) 

OUTENO 

1550 

MV3.L0S4U*) 

OUTENO 

1560 

M*4-LDS6(J5) 

OUTENO 

1570 

MNS-L0S6O6) 

OUTENO 

1580 

MV6-LDSA()7) 

OUTENO 

1590 

MV7«L0S6(18) 

OUTeNO 

1600 

MV0.LDS9I3) 

OUTENO 

1610 

M1«LDS«(19) 

OUTENO 

1620 

M?-L0S6(20) 

OUTENO 

1630 

M3-L0S6(?1) 

OUTENO 

1640 

M4»LDS6(22) 

OUTENO 

1650 

MS-LDSfc  23) 

OUTENO 

1660 

M6«L0S6(24) 

OUTENO 

1670 

M8«LDS9(4) 

OUTENO 

1680 

NPN0Z-LDS6 (25) *0,45359 

OUTENO 

1690 

NSN0Z«LDS6<26) *0.45359 

OUTENO 

1700 

P1»LDSS(?7)/1.333224E*02 

OUTENO 

1710 

P10»L0S3(1>/6.8947572E«03 

OUTENO 

1720 

P2»LDS6j{8)/:.333224E»02 

OUTENO 

1730 

P?0>L0S1 ft (1 ) /6.894757?E*03 

OUTENO 

1740 
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AMPMOIX  A 
SUBROUTINE  OUTER* 


CHEMICAL  LASER  ANALYSIS  MRO*RAN  (Cl AM) 

overlay  main 


MAM  A*  M 


c 

c 


OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTKR* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 

v.  OUTER* 

OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
CUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 
OUTER* 

RRITE 1*0.901)  OUTER* 

tF(LOStP.FS.3HMlO)  RAITEn0,30*)SREAAC*CAN*LE*Ol*Ois.D3.D3S,  OUTER* 

-®EORPR**EORSR.H*ASe*MH§tLCAV*tRMOE*lSROI,NiRROE»RK£RAC*R10*TSO»T?OOUTER* 
IMU.OMf.EO.SHTlO)  RRITE  )30*303)*RERAC*CAM*LE  *01  *D|8,03*03S*  OUTER* 

-•EORRR,*EORSR*N»ASt,HR*,VCAV,LRROE*LSKOl,R8MNOE*RK£RRC*T10*T30*TTOOUTER* 
RRITE (30*300) Al*Ai A 1SE*A1A1S*»*1*RR1*RI*RRRO**MI»M|0»RE I »R1*R10*  OUTER* 
-U,T10  OUTER* 

RRlTE(39*30S)A*,0**RRt«M*,Mt,MtO,R**R«Q*T*,TtO  OUTER* 

RRITE (30*300)03* A3A3SE*A3A3t9,S3*MR3*M3*RSROZ*M3,M3O*RE3»R3.R30*  OUTER* 


M3>L0lA  (Ml/l.  333**0F  *0* 
M3*«LDt*  ( 30 1  /*  •  M*T*m  •  03 
MomLOIOJ  31 ) / J • 333***E  *0* 
M««mLOSI I (f| /«.*«* T9TPE.03 
R9aLOS0(3*)/1.333***F»0* 
RtOaLOSO 1 33) /l . 3S3PP*E  *0f 
MOaLOSO  1 30)  Si .  333PE*C»0P 
MOOmLOS* 1 3* ) /\ . 333**0F  *0* 
ROaLOS* (9) /I • 333ftOE*OX 
ROQaLOSO (01 /I .333**0P«9* 
R|*L0I7( 1 )/I*0E*03 
R 1 0<*L0S7  (*)/1.0t»03 
R*bLOST(3>/1.0C*03 
R90bLOST(*)/1.0E*03 
R3mLO*T(S)/1.0C»03 
R30>LO>T(«)/1.0C*03 
R*«L0ST(T)/I. 01*03 
ROtaLOS7(R)/l*OF*03 
R9aLDST(«)/1.0E*03 
MBO«10*T(IO)/1. 0*^03 
RO»L 0*7(111/1. 0E*03 
ROOal 0S7 ( 1*)/1«0F»03 
R*aL0S«(7)/1.0E*03 
R**aLDS*(*l/1.0C«03 
T|aL0t7(I3l 
T|0aLO$9(P) 

TE«L 0*7(1*) 

T*0aLO*TM5) 

T3>LO*7(lO) 

TSAaLOf 3(3) 

T*BtO«7(17) 

TOOaLOST (1*1 
T»aL0*7(10) 

T*0»LO*7 (EO) 

T0«L09T(*l) 

TOO«LO*? { **) 

T70aLO*3(A) 

TAaLOM(O) 

TiOaLOtO (10) 

R3R)aL0*7(»3> 

KSKlaLQt* 


«T3,T30,R3R1,X3X1 
RRITE ( 30*307) A****. RR*,R*, MO, M*0.R**R*0*T*,T*0*R*RM,X*X| 
RRITE(30*300) At,69*RR8*N9»Ri*RSO*R9*RS0»T9*T5O*R9R**X9K* 


OUTER* 

OUTER* 

OUTER* 


I  T*0 
IT** 

mo 

JT*0 

mo 

1000 

1010 

lift 

1030 

1*00 

1**0 

1000 

10T0 

10*0 

SOOO 

1*00 

1*10 

i*ro 

1*30 

1*00 

1*90 

1000 

1*70 

1*00 

1000 

*000 

*010 

*0*0 

*030 

*0*0 

*0*0 

*000 

*OTO 

*000 

*0*0 

*100 

*110 

*1*0 

*130 

*100 

*190 

*100 

*170 

*100 

*1*0 

»*00 

**10 

mo 

**30 

**00 

1*00 

**00 

**70 

**•0 

**•0 
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A3O1N0IX  *  CMtNlCAL  L AMO  ANALYSIS  30000AM  (ClAO> 


SU030UT1MT  OUTtNO  0VI3LAT  MAIN 

Wire (St (319107* NUT, TT«.KT»?.XTX» 

it tOLOo.r©. oto>  so  to  t oi 
n  tiLOu.ro, cmo«)  oo  to  103 

U*ITFt38,311>AO,9i,MUA,H0,O»,O*o,3tA,3O*36fwTO,T 
•0  TO  1$3 

101  WITC  (30(31?) 

»3ITttj0,313)A0,®»,LSrO,MU0,Ne,38,O*0,3t3,3O,O*0 
00  TO  103 

in»  woiunoisut 

BtTUON 

c 

c 

c» 

c*  oorsouoe  occoveov  srctioN 

c» 

PAM  A*  < 

6U3.X6X3  OUTtNO  330 

OUTtNO  3311 
OUTtNO  3331 
OUTtNO  3331 

OUTtNO  3301 
OUTtNO  336( 

OUTtNO  3301 
OUTtNO  33*1 
OUTtNO  3401 
OUTtNO  3411 
OUTtNO  3*3< 

•OUTtNO  3«*< 
•OUTtNO  3*3< 
•OUTtNO  3*61 

c 

OUTtNO  3* ft: 

c 

OUTtNO  3**1 

103 

rrtrufCT.to.Not  oo  to  10* 

OUTtNO  3*01 

A 1  •LOSO  ( )1)  *T,  S  30661  *00 

OUTtNO  ttll 

«(M*i  (11  •7.030661*03 

OUTtNO  3*31 

A3*M5J  (3) *7. 030661*03 

OUTtNO  393< 

A**33Sl (3> •7,030661*03 

OUTtNO  30*  ( 

A**03$6tU *7, 030661*03 

OUTtNO  3*0  ( 

A6«33Sft  (31  *7.030661*03 

OUTtNO  3*6 ( 

ATaOOSl t*l«T. 030661*03 

OUTtNO  30T( 

01«lDS*t3> 

OUTtNO  3001 

6*«03S3tl> 

OUTtNO  30* ( 

OUTtNO  36G< 

0A«33S3t3l 

OUTtNO  3611 

6S«03»Ttn 

OUTtNO  3031 

«6>Mt»(«| 

OUTtNO  363) 

0T»33t3(*) 

OUTtNO  3641 

MOULDS*  t3) 

OUTtNO  30*1 

MW»>MS3(6) 

OUTtNO  3661 

MW3«03»3tT) 

OUTtNO  30TI 

MU«a03S3(*> 

OUTtNO  3601 

OUTtNO  30*1 

N<»(M«|(1| 

OUTtNO  3T01 

MHT*MS3(10) 

OUTtNO  3TK 

Nl-LOM(A) 

OUTtNO  3T31 

M3a33S3<lt> 

OUTtNO  3T3* 

N3dMS»(13t 

OUTtNO  3T*( 

M4a3ffS3tl3> 

OUTtNO  3T9( 

M0aO306t3> 

OUTtNO  |T6< 

M6a33S3<t«> 

OUTtNO  3TT< 

NTaOOSftlSl 

OUTtNO  3T*( 

Ol»LO**t*)/1.33333*t>03 

OUTtNO  3T*1 

F1«bLDM(6)/1. 33333*1*03 

OUTtNO  3001 

OUTtNO  3011 

OfOaOOfftl?) /I. 33333*1*03 

OUTtNO  3031 

OUTtNO  3031 

U«»MH  *1*1/1. 33333*1*03 

OUTtNO  30*1 
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A4«A*S((00)/>.333((4C*0( 

i /i.si)tMt»gr 

^■MIIIDI  /1 .133MUXI 

A*o»AA*(<iA)/i.333((*r*oA 

AT«AAS8(()/l«3S3((4r*0? 

A1»10**(T)/1.0E*03 
*1 0*L08* (A ) / 1 .0C  *03 
A(«AAt((f*>/1.0E*03 
A(0»AA*t((T>/1.0E*03 
A3«AAIt((i)/1.0C*63 
A3O«AASt(?*)/|.0E*03 
A4aAAS(<3O)/1.0E»Q3 
A4t«AAS(  (31)/I.0E*03 
»0*AAtf <3tl/l.0C<03 

abo«aas((33>/i.oe*o3 

A«aAAt(  ( 341/1, OC*03 
A*0»AAt((35>/1.0F*03 

NraM>ll(3»)/1.0e«03 

ATO*AA((nT>/1.0E*03 

Tl-UM*!*) 

T1 0*LDS3 ( 10 1 
T(aAAS*(3t) 

t(o*aa*(o*) 

T3«AAS((40) 

T30-AAt((4l> 

T4_«"S((4() 

T40*  S(<43) 

T»  tt((44) 

TS6-M*3<3> 

T4>AA8((4S) 

T*0«AAS((4A) 

TT.AA8K4T) 

TT0»AAS(  (4«) 

W3W)>AAS3 


wmot«401) 

iaieject.eq.cao  oo  to  204 
tHf  JtcT.to,*»t>  so  to  ios 

Nftm<30'4Of)A3Ai!*rjrcT*erAi* 

waite no. *os> 

•o  to  iq« 

WAITE  (30 1 403)  A3A(o AT A6 .EJECT  ,CTAl(»OStNWS»A>)0»AT»T80 
WAITE (JO. 408) 

80  TO  10* 

WAITE  00**04) ATA4, EJECT, 05. UNIT. NWS, A30, AT, TSO 
WAJTE (30.404) 

WAJTE (SO. 40T)AI,*1,MW1,W|.A1.A10.A1,A10,T1,T10 
IA (EJCCT.EQ.f8E)  00  TO  10T 

WAITE ( 30*401 ) Af.ETAli.OE.NWf *N(*A(«A(0.A(,A£0,TB*  T(0*W(WI .XtKi 
WAITE (30.460) 


OUTENO  (080 
OUTENO  (0*0 
OOTt^O  (OTO 
COTtWO  (»00 
OUTENO  (000 
OUTENO  (800 
OUTENO  (010 

out  two  mo 

OUTENO  (030 
OUTENt  (0*0 
OUTENO  (OTO 
OUTENO  (0*0 
OUTENO  (OTO 
OUTENO  (0*0 
OUTENO  (000 
OUTENO  3000 
OUTENO  3010 
OUTENO  30(0 
OUTENt  3030 
OUTENO  3040 
OUTENO  3080 
OUTENO  30*0 
OUTENO  SOTO 
OUTENO  30*0 
OUTENO  3000 
OUTENO  3100 
OUTENO  3110 
OUTENt  31(0 
OUTENO  3130 
CJTEN0  3140 
OUTENO  3180 
OUTENO  31*0 
OUTENO  31  TO 
OUTENO  3100 
OUTENO  31*0 
OUTENO  3(00 
OUTENO  3(10 
OUTENO  3((0 
OUTENO  3(30 
OUTENO  3t*0 
OUTENO  3(80 
OUTENO  )(*0 
OUTENC  3(T0 
OUTENO  3(00 
OUTENO  3(00 
OUTENO  3300 
OUTtN*  3310 
OUTtM*  33(0 
OUTENO  3330 
OUTENO  3340 
OUTENO  3380 
OUTENO  33*0 
OUTENO  3ST0 
OUTENO  3300 
OUTENO  33*0 


oonoortono 


ARRFNOtX  A 
SURROUTINF  OUTCNO 


CHEMICAL  l Alt A  ANALYSIS  PROOF AN  (CLARI 
OVERLAY  MAIN 


MASS  A-II 


tF  <CJCCT<FO<CAC )  MR I TC < 30 , A 1 0 1 

MRITC (30. A1 11 A3.CTAP3.03.NN3,M3.RJ.R30.R3,R30.T3,Y3A.M3M1,X3XI 
IF<FJECT,Nf .CACl  return 

MRITC <30 **It) AA.6A.MMA,NA.RA.RA0.RA.RA3.TA,TA0»MANi,XAXl 
MRITC (}0<Al3) 

00  TO  100 

10T  IF<LINIT<CO<ULRI  MR ITF < 30 • A) A) 

IF<LINIT,C0.2SR>  MRITCOO.AIS) 

IF (LIMIT. CO. MRR)  MRITC ( 30 <A16) 

MRITC ( 30. A1 71 

1  OR  MRITE<3<1<A101  AS. OS, MMS, MS. PS. RS0.R9.RS0<T9.T90.MSMi,X9Xl 
IF  <CJCCT<CQ<CACI  MR ITF  (30.A191 
IF (EJECT. CO. SSC )  MRITC (30 <AP0 ) 

MRlTE(3(l.AP11AA.OA.NMA.MA.RA.RAO.RA.ROO.TA.TAO.MAMi ,XA«l 
MR I TE( 3(1  <AP/ IA7<CTAA7<OT< MM 7<M7<R7<R70<R7< R70<T7<T7A<MTMI<X7X1 


SYSTEM  CALCULATION  SECTION 


100  IF (SCSSF.CQ.NO)  RETURN 
HOXDEVaSCSF ( 1 1 /F. SAC-OP 
LOXDCVaSCSP(P) /F.SAC-02 
LLOS*SCSFI3)/F.SAE-OF 
LRRSaSCSF I A> /F.SAE-OF 
MAMaSCSF  <51 /0 . AS399P37 
MOASCaSCSF (01 /O. AS3S9F37 
MCAVaSCSF ( 7 1 /O . AS339P37 
MCiaSCSF (01/0. AS399P37 
MCSaSCSF (9) /0.A53S9F3T 
MOSaSCS?  < 1 0 1 /O . AS3S9P37 
ME JECTaSCSF  < 1 1 1 /O . AS3S9P37 
M£LINCaSCSF( IF) /0.A53S9F3T 
NERREOaSCSF (131/0, AS359F3T 
MERTaSCSF ( J A1 /O, AS3S9F3T 
MINJaSCSF ( 191 /O. AS359F37 
MLDHOMaSCSF (101/0, A3 399F3T 
MLDS*SCSF(17) /0.AS3S9P37 
MLL INEaSCSF (101/0. A93S9F37 
NLRREOaSCSP ( 191 /O , AS359F3T 
NLRTaSCSF (?0 1 /O, A9399F37 
MMUCaSCSF  (F1 1  /0.AS3R9F3T 
NORTaSCSF(FF1/0.A9359F3T 
NRRHOMaSCSF t  F3 1 /O . A9399F3T 
NRRSaSCSF ( FA  1 /O . AS399F3T 
MSUBDaSCSP (P91 /0.AS3S9P3T 
NSURObSCSFIFOI /0.A93S9F3T 
MT0TAL»SCSF(F71 /O, A93S9F37 
VAMaSCSF(FO) /P.S31 AOA6S9PC-OP 
VRXDEVbSCSF (F9) /P.831 ASA A59PC-0P 
VCAVaSCSF ( 30 1 /F.OSl A8AAS9PC-0F 


OUTCNO  3AA0 
OUTCNO  3A10 
OUTCNO  3AF0 
OUTCNO  3 A 30 
OUTCNO  3AA0 
OUTCNO  3AS0 
OUTCNO  3AOO 
OUTCNO  SATO 
OUTCNO  3AOO 
OUTCNO  3A90 
OUTCNO  3000 
OUTCNO  3910 
OUTCNO  3SF0 
OUTCNO  3030 
OUTCNO  3OA0 
OUTCNO  3000 
OUTCNO  3000 
•OUTCNO  3070 
•OUTCNO  3000 
•OUTCNO  3090 
•OUTCNO  3000 
•OUTCNO  301 C 
OUTCNO  30FO 
OUTCNO  3030 
OUTCNO  30AO 
OUTCNO  3000 
OUTCNO  3000 
OUTCNO  SOTO 
OUTCNO  3000 
OUTCNO  3090 
OUTCNO  3T00 
OUTCNO  3710 
OUTCNO  37F0 
OUTCNO  3730 
OUTCNO  STAO 
OUTCNO  STOO 
OUTCNO  3700 
OUTCNO  3T70 
OUTCNO  3700 
OUTCNO  3790 
OUTCNO  3000 
OUTCNO  3010 
OUTCNO  3RF0 
OUTCNO  3030 
OUTCNO  30«0 
OUTCNO  3«00 
OUTCNO  3000 
OUTCNO  SOTO 
OUTCNO  3000 
OUTCNO  3090 
OUTCNO  3900 
OUTCNO  3910 
OUTCNO  39F0 
OUTCNO  3930 
OUTCNO  39a 0 
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APPENDIX  A 
SUBROUTINE  OUTENB 


CHEMICAL  LASER  ANALYSIS  PP09PAM  (CLAP) 

oveplay  main 


pabe  a-ie 


VCOMRaSCSE ( SI ) /E.8316R46592c“0?  OUTENB 

VCS»SCSE(3E>/2.B316A*659EE-0?  OUTENB 

V?JECT»SCS2(33)/2.0316846592B-02  OUTENB 

VEPT»SCS2<34)/2.B316846S92E-02  OUTENB 

VLDMOWaSCSEOS)  /E.8316B46592E-02  OUTENB 

VLDSaSCS2<36)/2.B316846S92E'>02  OUTENB 

VLPT>SeS2<3T)/2.8316646S92E«02  OUTENB 

V0PT«SCS2 ( 3B> /E.83 1 AB46S9EE-0E  OUTENB 

VPNMOWaSCS2(39)/2.8316S46592E-02  OUTENB 

VPPS-SCSE (40) /2.0316846592E-02  OUTENB 

VSUBO*SCS2(41>/2.8316846592E-02  OUTENB 

VSUPOaSCS2(42)/2.B316046S92E-02  OUTENB 

VS YSTNaSCS 2 ( 4  3 ) /2 . 8  3 1 68 4659  EE - 0  2  OUTENB 

VTOT ALaSCSE (44) /E , 831 6846592E-0?  OUTENB 

WBASE>SCS2(4S)/2.S4E<»0?  OUTCNi 

VBXDEVa$CSf (46) /2.54E-0?  OUTENB 

WPP3aSCSl»t.GE«03  OUTENB 

XLPaSCS2<47)/1.0E*03  OUTENB 

OUTENB 

OUTENB 

WRITE (30.501)  OUTENB 

IP (EJECT. NE. CAE. AND. EJECT. NE.SSE)  UNITE ( 30. 502) NBANK.PTIME.WPP3  OUTENB 
IF (EJECT. EO.CAE.OR. EJECT. EQ.SSE)  WPITE (30,403) EPEACT.NBANK.NEJECT, OUTENB 
-PTIME.WPP3  OUTENB 

WPITEOp.504) ( (STRODE (lfJ).JBl.B).I*l.IO)» (STNODE 1 1 . 1 > •  OUTENB 

•(STMO0E(I.J).J-7.10).I«1.10)  OUTENB 

WPITE (30*505) XLP  OUTENB 

WPITE (30. 506) MINJ.MC8.M8ASE.VC0M8.MCAV.YCAV.MAW.VAW.vCS.VCS.M0PT,  OUTENB 
•VOPT.MOS.JLPRES.MLLINE.MLDHOW.VLOHDW.MLRT.VLNT.MLDS.VLDS  OUTENB 

IF (EJECT .EQ.NO)  80  TO  1(3  OUTENB 

IF(EJECT.EO.CAE)  BO  TO  (10  OUTENB 

IF(EJECT.EQ.SSE)  BO  TO  111  OUTENB 

W« I TE ( 3Q . 50  7 ) MSUPO • VSUPO . MSUBD . VSU8D *  MPRS . VPNS  OUTENB 

00  TO  1)2  OUTENB 

WRITE (30. 508) MSUPO. VSUPO. MSUOD.VSUBD.MEJECT.VEJECT.MENNEO.MELINE,  OUTENB 
-MPRNOW , Y PPMDW . MENT . VENT , MPRS .VPNS  OUTENB 

BO  TO  112  OUTENB 

WN I TE ( 30 • 509 ) REJECT • VE JECT , MERNE 0 . MEL  I NE . MPRHDW. MENT . VENT .MPRS ,  0UTEN3 
-VPNS  OU  ENB 

WRITE (30. 510)MLDS,VL0S, MPRS. VPNS, HMISC.NTOTAL.VTOTAL.VSYSTM.MBASE.OUTENO 
-LLDS . LPPS , LBXDEV , WBXOE V • HBXOEV • VB  X  DE V  OUTENB 

RETURN  OUTENB 

WRITE (30*51 DMLOS.VLDS.MMISC.MTOTAL. VTOT AL.VSYSTM.WPASE.LLDS.  OUTENB 

•LBXDEV, WBXDEV. HBXOEV, VBXDEV  OUTENB 

OUTENB 

OUTENB 


■••••••••••••••••••••••••••••••••••••••••••a** •••••••••••••••••••••OUTENB 

•OUTENB 

FORMAT  STATEMENTS  •OUTENB 

•OUTENB 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••♦•••••••••OUTENB 

OUTENB 

OUTENB 

FORMAT («1 •*/////// »T*7 .•CHEMICAL  LASEP  ANALYSIS  PROBNAM  (CLAP) •, //OUTENB 
■*T53»*WRITTEN  8V|  C.L.  ADAMS*. /, TBS. *A,L.  ADOY»,/.Ta5.*R.O^  MASSEYOUTFNB 
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APPENDIX  *  CHEMICAL  LASER  ANALYSIS  PIIOOBAM  CCLAP) 

SUBROUTINE  Ol'TENO  OVERLAY  MAIN  BAOt  A. 13 


?n? 


?o* 


209 


?00 


301 

30? 


-*./»T09.*C.D.  MIKKELSFN*,/,T65,*0.F.  M0BB*,/,T05»*P.L.  ORLUKI AN*, /OUTENR 
-.TR9,«N.J.  VALUER*. //.T6A.»1  JANUARY  TT*,//, TS1 * •AERODYNAMICS  RBOUOUTENR 
-P  lOROMI-TDR ) •»/»  T51 »*SY$TEN  SIMULATION  DIRECTORATE*. /.Hl»«U.k.  AOUTENR 
.RMy  MISSILE  RESEARCH  A  DEVELOPMENT  COMMAND*, /. T9 1 » -BEDSTONE  ARSE NAOUTENR 
•L.  ALABAMA  3500**.//»T5T.*RUN  OATF  *.A1Q>  OUTENR 

FORMAT »*0*,///.T.S?, -COMBUSTION  CHEMISTRY  SECTION*,//, TOO.  OUTENR 

••INITIAL  DATAt*.//.  OUTENR 

•T31.*AEXP  ■*»C13.0»*  IN?*, TOT, -ALPHA  ■••E13.A,/.  OUTENR 

T3I.*0F0RHF  ■•» A 1 3.T6T . *N1  -*.113.*  ATOM*  C*,/.  OUTCMI 

■*.113.*  ATOMS  H*,T07»*N3  ■••113, •  ATOMS  N*./.  OUTENOt 

■*,113,*  ATOMS  F*»T07»*VP8  -••E13,f.*  OM/S  N?*,/, OUTENR 


-T3l,*N? 
•T31 ,*NA 
-T31.*MPR1 
-TOT,*VPB? 


?03 


**,C13.6,*  OM/S  C* • t 1 »*H*. I | ,  OUTENR 

■*.£13.0.*  OM/S  HE*,/,T31.*VPRS  ■••F13.6,  OUTENR 

-•  OM/S  N?*,T6T,*WPR4  ■••E13.B,*  RM/S  N*,I1,*F*,I],/,T31,  OUTENR 

•*WSR1  **«E13.6.*  OM/S  D?*,T07,*MSR?  ■••E13.6,*  RM/S  ME*,/.  OUTENR 

-T3i«*HSR3  ■  • »E 1 3.6,  •  OM/S  N?*)  OUTENR 

FORMAT (• 0* </////. T9? «*COMBUSTt ON  CHEMISTRY  SECTION#, //.TOO,  OUTENR 

-•INITIAL  OATAl*,//,  OUTENR 

-T31,*AEXP  ■*.£! 3,6»*  IN?*, TOT, -ALPHA  ■*,F13.6,/»  OUTENR 

-T3).*OFORHF  ■*.A13,T0T,*N1  >*,!l),<  ATOMS  C*,/»  OUTENO 

-T31,*N?  >*,113,*  ATOMS  D*,T6T.*N3  ■*«I13,*  ATOMS  N*,/,  OUTENR 

-T3|,*NA  ■*.113.*  ATOMS  F*,T07,*»PO  -*,E13.0,*  RM/S  N2*. /.OUTENR 

-T3I»*VPR1  ■*,E13.6«*  RM/S  C*. I 1 ,*0*. I 1 .  OUTENR 

•T«7,*VPR?  ■*«E13.0.*  RM/S  HE*./«T3) ,*VPR3  ■*»C13.6»  OUTENR 

-•  RM/S  N?*,T6T,*VPRA  -••E13.6,*  RM/S  N*,I1,*F*,1),/,T31,  OUTENR 


-**SN1  ■*»E13.0»*  OM/S  H?*«TAT,*NSR? 

•T3I «*VSR3  ■*.E13.«,*  RM/S  N?*) 

FORMAT ( • 0* . T5* . *BE  SULT  ANT  OATAl*,//, 

-T31,*FOAA  -*.C13.0,*  RM0LC/S-IN?*,T6T,*0MERA 
•T3I ,*0ME8TRV  ■*,E13.0,T07,*PSIC  -*.E13.0,/, 

-T3J,*PSIL  ■*.£! 3.6, T6T»*P5ILTBV  •*,Cl3.0./. 

-T31„*0  -*,E13.6,*  CAL/RMOLE* , TOT ,*RC 

-T3l.*RL  ■*.E13,fc.TOT,*RLF  ■  *,£  S.,R» 

FORMAT  1*0*. 


■*»E13»0,*  RM/S  HE*,/,  OUTENR 

OUTENR 


■*»C13,0./, 


■*,F13.6,/, 


-T31,*VFCP1 
-T3l,*VFCP? 
-T3J.*VFCP3 
-T3|.*VFCP* 
-T3l,*VFCPS 
-T31,*VFCP6 
FORMAT »*0*, 
-T3j,*VFCPl 
•TJJ ,*VFCP? 
-T3|,*VFCP3 
-TSl ,*VFCP4 
-T3J,*VFCP5 
-T31,*VFCR6 


"•.El  3,6 , • 
••.E13.0.* 
■*.EJ,3.0,* 
■*,F 1 3.0, • 

•*,cn.o,* 


CF4*,T0T,*XFCPl 

HF*,TOT,*XECR? 

OF*,T*T.*XFCP3 

HE*,TRT.*XrCRA 

N?*,TOT,*XECP5 


■*,C13.0,*  D*,T6T,*XFCP* 


■  *,F13.6,*  CFO,/, 
■*,EI3.6»*  ME*,/, 
■*,EI3.R,*  OE*,/, 
•*,E13,R,*  ME*,/, 
■*.E1 3.0,*  N**,/, 
■*,E13.R»*  0*1 


■*,E13.6,*  CF**,T6T,*XFCP1 
••.EI3.0.*  HF*.TOT,*XFCP? 

■*,C1 3.0,*  0F*,T6T,*XFCP3 
■•.EI3.0,*  HE*,T6T.*XFCP4 
■••E13.6,*  N?*,T0T,*XECP5 
■*,E13.6,*  H*,T6T,*XFCP0 

FORMAT (•1*,TS0,*LASER  DEVICE  SECTION*,//, TOO. -INITIAL  OATAl*) 
FORMAT |*0*, T31,*BPFRAC  ■*.E13.0,T0T,*CANRLE  ■*,E)3,0,*  OCR*,/, 

-T3|,*D1  ■*,E13.0,*  IN*,TOT,*01S  ■••E13.0,*  IN*,/, 

"T3| ,*03  **,E13. 6.*  IN*,TOT ,*03S  ■*,E13.6,*  IN*,/, 

-T3l,*RE0MPN  **,AI3,T0T,*RE0MSN  ■*,A13,/, 

•T3I ,*HBaSF  ■*,C13«0,*  IN*,TOT,*MNR  ■*,E13.6«* 

“T3| , *LCAV  ■*,C13.6,*  IN* , TOT ,*LPNOZ  ■*,C13.0,* 

-T31,*LSN07  ■*,C13.0,*  IN*,TOT.*NRPNOE  ■*.E13.0,/, 


■*,E13.0,*  CF4*,/, 
■*,E13.0,*  HE*,/, 
■*,C13.0,*  OE*,/, 
■*,E13.0,*  ME*,/, 
■*,E13,0,*  N?*,/, 
■*,EJ3.0,*  M*) 


IN*,/, 

IN*,/, 


OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 

OUTENR 


4900 

4910 

49?0 

4930 

4940 

4990 

4900 

49T0 

49B0 

4900 

4000 

4010 

40?  0 

4030 

4040 

4090 

4000 

40T0 

40B0 

40*0 

4T0O 

4T 1 0 

4T?0 

4730 

4740 

4T90 

4TA0 

4770 

47R0 

47*0 

4B00 

4010 

40?0 

4030 

4040 

4090 

4000 

4070 

4000 

40*0 

4*00 

4910 

4*?0 

4*30 

4*40 

4*90 

4*00 

4*70 

4*00 

4**0 

9000 

9010 

90?0 

5030 

3040 
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«'  ■*'  1 1'  i*  i.  i  .  .  .j. 


dWFttOU  A 
3U9R0UT1MC  OUT CM* 


CHEMICAL  IM(*  ANAL7S1* 

OVERLAY  WW 


303 


-T3l«*«M*C  .4,Cl3.*,T*T,*R10  •••CIS.*.*  *»«*•.'• 


304 


IN^T*T.*D1S 

1M,T4Ti*03S  •4,E13.*»*  IN*./, 

■•,Al3.TAT,**C0MSN  »*iMS»/»  lw#, 

M.m.t.*  1N*.T*T,*HNR  *M}J*i*! 

••.E13. 6,*  IN*.T*T,4LRN0Z  XN  */* 

■•.CIS.*.*  IN4.T*T,4NSRNOZ  ••.CIS.*./. 

••,C13.6.UT,*T10  ■••C\3.fc#*  **•/. 

^ORmIt”o*.T59.JrCSOLTANT  t0**i  • /tTSlt*  CCoSbUSToSSStInS  MTO 

-KIT  -  CONDITIONS  MSfD  ON  THC  NOZZLE  9TA*MATIOH*»/.t*h  "*  OOTCNO  9100 

-»  TCMRER ATURE* . // * 


-T3J .*01 
«TSI.*03 
-T3J .•♦EONNN 
-T31.«H*ASC 
«T3J,»LCAV 
-T31,*WSN0Z 
-T3I,*RKFRAC 
-T3I»«T30 


NAM  A-I4 

DUTCH*  9040 
0UTEH*  90*0 
0UTCH*  SOTO 
OUTCH*  S000 
0UTEN*  9000 
OUTCN*  SI 00 
OUTEN*  SI 10 
OUTCH*  SI  CO 
OUTCH*  S130 
OUTCH*  5140 
OUTCH*  9190 


305 


-TSI.*A1 
-T3>.*A1#1S« 
-TS1.4MN1 
-T31»«NRN0Z 
-T3I.**J0 
-T31.«RJ 
-T31.4TI 


300 


30T 


3'tU.t"  S-1N2/L*N0LE*,T*T..AIA1*C  -.CIS.*./.  JUUH*  MOO 

g 

■•«C13.4«*  RSIA««T*T»*RE1  »  8H/CN3*. /.OUTCH*  5C40 

-.CIS.*.*  6H/CN3*.T*7,.M0  ®"/CM  OUTCN*  5C50 

•'ll'hVl  *mISIny  iSllLC  CXIt'-‘cONDITIOHS  CASCO  OHOUTCH*  5240 

FORMAT (•0«.T22»*NOtNT  J  MIMART  NOZZLE  EXIT  cv  OUTCH*  52T0 

-  THC  NOZZLE  CXlT*./,T31.*TtMRERATORC*,//.  *02  **,C13.*./.  OUTCH*  S2*0 

•Ttt  *#AV  ■*ftl3*fc**  S *1  HI /CWOt t * t T 6T i  6c  .  %  .  .  MtviNft 

-T3I.4MH?  ■•«C13«4.*  L*N/V.SMOLC*.T*7.**'2  ***  Al.!,',  OUTCH*  5300 

-T31»*RZ  "*'Sl2*l**  I2/?msI‘t4t!*R2  *  il'c\sl4.4*«H/CMS*./.OUTCHO  5310 

-T31.«*C  ■*.C13.4.«  ®H/CM3*.T4T,  R2  4,4  K*»  OUTCH*  5320 

-TM.*T*  ••.C13.S.4  **;I*Jl!™V?2LF  r»lT  -  CONDITIONS  SAStO  OUTCH*  5330 

FORMAT  |*0*»T22.4N01HT  3  3TCOHO ARY  HOZZLC  r T X -  SjLJ*  // ,  OUTCH*  5340 

-ON  T«C  NOZZLE  STA«N*TI0N*,/,T31,MC0MSUST0«>TCNNCRATUE./  ouT,Ne  5J0O 

:!?. =:a*.r~ftS5"*: .. , , . sss  55?; 

:::i‘,!:t::  ;”£££%;?;«"  ••.«?>•»«•  ""••'•gas  i;« 
:::5!5:5::  “r  “'C“V,,,SSKS  W. 

■*«C13.4.*  K».T4T,4T30  ■•.C13.9."  *  »'»  OUTCH*  5420 

r«tW.4T.ra?^:‘;^ffi  «n  -  CONDITIONS  OASCO  OUTCH.  5430 

-on  THC  NOZZLE  EXIT*,/.T3l,*TCMRiRATURE*.//. 


-V3\ ,*HM3 
-T3\.*HSN0Z3 
-T3J ,*N30 
-T31.4R3 
-T31.»T3 
-T31.4M3M1 


30* 


30* 


-T3J»*A4 
-T31.4HH4 
-T3J.4N4 
-T3J**R4 
-T3I -*T4 
**',  ^4¥2 
70RNAT<* 
-T3I.4A5 
-T31.4MM5 
-T3J.4R5 
-T3I,*R5 
-T3I.4T5 
— T31 .•M9M2 
FORMAT (*0#»T 
-T31.4A* 


•4.C13.*.*  LBM/LSM0LC«.T*T.*M4  ..  OUTCH*  54T0 

S!5SS;?»*.  "2SS:*." U.«  **.« 


4.C13.M*  R4»T*T» *T*0  ••.CIS.***  *•»/* 

•4, C13, 4.4  5-IN2/LSNOLE**T*T»*S5 
••.CIS.*.*  LSM/LSMOLC •  » T *T » «M5 

:::5!5:;::  S52R&3..  «««*•  'isss  till 

. . .  SKIS  5555 

-J?*?’rT;«SrSo-»c’w5i2;ti»  *««.  SKIS  HE 

•C13.«.«  S-IN2/LSM0LC4.T4T.***  .*,C13.*./.  OUTCN*  55*0 


OUTCN*  5490 
OUTCN*  9500 
OUTCN*  5510 
OUTCH*  5520 
OUTCN*  5530 
OUTCN*  5540 


43 


ARRENOIX  A 
SUBROUTINE  OUTENO 


CHEMICAL  CASE*  ANALYSIS  RROORAM  (CLAM) 
OVERLAY  MAIN 


RAOE  A-13 


-T3|.*Nma  •*.E13.0.*  LBM/LBNOLr*.T*T,,NA  -••E13.*,/.  OUTENO 

•T31,*R*  -*,tl3.0.*  T0RR**T4T,*RA0  »•<£)),»,•  TORR*./,  OUTENS 

-T3l,*RO  •*,E13.0,*  AM/CMS* , TAT ••MAO  ■••E13.A,*  ON/CM3*./, OUTENO 

•TS),*T4  ••♦1)3. A,*  K*.TAT.*TOO  •*,F13.4,*  K*,/,  OUTENO 

-T3),*MAM f  ■•.Cl3,A,TOT,*XAXE  ••.Ell, A) 

EORMAT(*e*.Tif.».*ROlNT  ?  MIRROR  RUROE  CONDITIONS**//. 

-T3).*OT  •*»f|3.A.TA7.*NM7  ■•♦CIS. At*  LiN/L NMOLE*./. 

»T3).*T7«  ■*.E) 3.A.*  K*.T07.*¥TNE  ■••F13.A./, 

•T3l,*X7X7  ••.FIS.*) 

EORMAT (*#*.Ttf **noint  A  LASEN  cavity  exit*.//. 


OUTENS 
OUTENO 
OUTtNO 
OUTENO 
OUTENO 
OUTENO 

>T3|.*AN  ••.f|J,A.»  S- 1 Nf/LBMOLE *.TA7,*08  •*.E)3.A*/.  OUTENO 
»T3| t*MMN  ■*.E)3.A.*  LNM/L0M0LE*.TA7.*ma  ■•tE)3.A*/.  OUTENO 
-T3I.*NS  ■•♦E13.A.*  TONS*, TAT. *NSO  •*.(1),«,*  TONS*./.  OUTENO 
■T3| «*NEN  ■*.F)3.A.Ta7»*N8  ■  *,E1 1.0«*  OM/CM3*./.  OUTENO 
-T31,*RRO  ••♦E13.A.*  OM/CM3*.Ta7.*T8  ■**E)3.At*  K*./.  OUTENO 
•T3).«T00  ■••El 3. A.*  K*,TA7.*MBM»  ■•.E13.0,/.  OUTENO 
•T31,*X0XE  »*.E13.0)  OUTENO 
FORMAT f *0*»TtE»*¥ARNlNOl  THE  CAVITY  ELOM  HAS  SENANATEO.  ALL  EUNTHOUTENO 
-EM  RESULTS  SHOULD  NE  USEO*,/, T31 .*MITM  CAUTION.*)  OUTENO 
EONHAT (*0*»T?E »*ROINT  A  LASEN  CAVITY  EXIT*.//.  OUTENS 
•T3|.*A0  ■••E)3.At*  S-|NE/LOMOLE*.TA7.*OA  ■••E13.A./.  OUTENO 
-TS|,*LSEN  ••.E13.0.*  IN*.TA7.*MV0  ■*.E13.At*  LOM/LOMOLE*./, OUTENO 
-T3),*Ma  ■*.C13.A.Tft7.*N8  •*.E)3.«»*  TQRR*,/»  OUTENO 
•T3),*Nao  •*.E)3,A.*  TORR*.TAT,*REO  **.E13.A./.  OUTENO 
-T3|,*NA  •*.E)3. A.*  OH/CH3* • TAT • *N80  ■•*E)3,At*  OM/CM3* •/, OUTENO 
•T3l,*TA  «*.E)].At*  K*.TAT,*TOO  ■••F13.A.*  «*./.  OUTENO 
-T31.*¥R¥E  •*,E)3.0.TA7.*XBXE  •••CI3.A)  OUTENO 
EORMAT(*0*.T*?.*NARNINSi  THE  CAVITY  ELOM  HAS  _HOK, 0.  ALL  EURTHCN  OUTENO 
•CALCULATIONS  HAVE*,.  .T1)..*BEEN  DISCONTINUED' >  OUTENO 
EONMAT (•1*.T5A.*NNE5SUNE  RECOVERY  SECTION*  //.TOO.* INITIAL  DATA )•) OUTENO 
EORMAT (*0*. T31 «*A3A£  •*.E13.A.TA7.*EJELr  •**Al  ,/,  OUTENO 
•T3) »*ETA) ?  •••E13.0)  OUTENO 
FORMAT (•(>•. T31 . *A3A?  ■*.C13.A.TAT.*A7AA  ••.ElS.O./,  OUTENO 
•T3|.*EJECT  ■*.A13,TAT,*FTA1?  **,E1 3. A./.  OUTENO 
■Tj) ,*05  ■*.EI 3.0.T07. *M¥5  ■•.Ell. A,*  LOM/LRNOLE*,/.  OUTENO 
•T3l.*RS0  ••♦E13.A.*  RSI A*,TAT,*RT  •*.E13.A«*  TORN*./.  OUTENO 
-T3l.*T«S0  ■••E13.A.*  K*i  OUTENO 
EORMAT («0*,T3).*A7AA  ■*,C13,A.T0T.*EJECT  •*A)1./.  OUTENO 
•TJ), *00  ■•♦E13,A,T67.*LIM|T  •*.A)3*/.  OUTENO 
•T31.*MMS  »E 1 3. A , *  LOM/LOMOLE*. TAT, *R50  **.E13.0.*  RS I A*. OUTENO 


-/.T31.*R7  •*.E)3.A,*  TORR*.TA7.*TSO  •*.E)s.A,*  M*|  OUTENO  AOOO 

*05  E0RM*T(*0*.T3R. -RESULTANT  DATAi*.//,T«E,*POINT  1  LASER  CAVITY  EXIOUTENO  A010 

-T  AND  NORMAL  SHOCK  DIEEUSER  ENTRANCE*)  OUTENO  AORO 

*00  EORMAT (*0*.T5«,*RESULTANT  DATA i •,//, TEE, *ROINT  l  LASER  CAVITY  EXIOUTENO  0030 

-T  ANO  CONSTANT-AREA,  SURERSONIC-SURERSONIC  EJECTOR*. /,T31,*SEC0NOAOUTENO  00*0 

-RY  ENTRANCE*)  OUTENO  0030 

*07  EORMAT J*0*.  OUTENO  0000 

-T3),*A1  •*»EI3.0»*  S-INE/LBM0LE**TA7**S1  ■•♦E13.0./.  OUTENO  OOTO 

-T3),*MMi  •*.£  1 3,0, •  LRM/LBM0LE*.T*7.*M1  ■*,E1?. A,/.  OUTENO  0000 

-T31,*R)  ■**E13«0.*  TORR*.TaT.*RIO  ••.E13.0,*  TORR*,/,  OUTENO  AOOO 

-T31,*R1  •*.EI3»A»*  0M/CM3*.TA7,*R10  ■•.C)3,A,*  0M/CN3*. /.OUTENO  0)00 

•T31,*T)  •*«E13,0.*  K*,T07,*T10  ■••E13.0.*  K*)  OUTENO  OUO 

*00  FORMAT(*0*.TEE.*ROINT  E  NORMAL  SHOCK  OIEEUSER  EXIT  AND  SUBSONIC  00UTFN8  OlEO 
-IEEUSER  ENTRANCE*.//.  OUTENO  0130 

“Til ,*AE  ■*»E13«0»*  S-INE/LBM0LE*.TA7.*ETAIE  ■•.E13.0,/,  OUTENO  03*0 


AA 


AMEND!*  A  CHEMICAL  LASER  ANALYSIS  MOSS  AM  (CLAM) 

SUBROUTINE  OUTFNO  OVERLAY  main 


MADE  A-l* 


»!» 

MO 

*11 


*if 


*13 

*1* 

*1S 

*1* 

*iT 

*)• 


*14 

*10 

Afl 


»TSl,*4f 

“TJJ,*M| 

•TSJ.MM 

•T3)«**F0 
•TSl «*TFO 
»T3l»*Xfll 


•*«tl3.*«*  LMM/t MMOLE *./. 
■••tl3.*»T*T.*Rf  ■••CIS.*,*  TORR*.F» 

••ill),*.*  TORA*»T*T.*Rf  ■*,C13.4.*  «/e«)»,/i 

••ill),*,*  ««/CM)*,nTiMI  •*i(|).ii*  **•/• 

■*»E\3.*.*  R*,T4T«*UfUl  ■•»E13.*»/, 

■•ill),*) 


FORMAT (*0*»Tff.*R01NT  3  SUtSONIC  DtFFUSPR  FXI*  •) 
FORMAT (***,TS5.* ANO  SUODEN  ENLAROEMENT  ENTRANCE*) 
FORMAT (•*•• 


•TSl ,*AS 

•tsi.ms 

-T31 «*NJ 
•T3|,*MJA 
•TS|.*R30 
»T3I **T3« 
■T31.*«3*l 


••il|),»,*  S-INf/LBMOLt*,T4T,*ETAt3  •*.tl3.4,/, 
•••E13,4,T4T,*MU)  ■•ill).***  LRM/LRMOLE**/* 

•••E13.A.T*T**M3  •••(l),ti*  TORR*»/» 

■••El3»*»*  TORR*.TAT,*R3  a*,tl3.*,*  §M/CNS*»/i 

••ill).*,*  4M/CM3*,TAT,*T3  •••E13.A**  *••/» 

•••Cl3.*i*  M*»T4T,*M3Ml  •*»F  1  3,*» /» 


0UTEN4 
OUTtNO 
OUTKNR 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 
OUTtNO 

CONSTANT* AREA*  SURSON1C-SURCRSON1C  EJCCTOOUTtNO 

OUTtNO 

•*»tl3.*.*  S- INf /LOMOLE • , T AT « *0*  ■••ElS,*,/.  OUTtNO 

■••ElS. 4.*  LaM/LIMOLE* » TAT • •»**  ■•.CIS. 4,/,  OUTtNO 

■••ElS.*,*  TORR*,T4T,«R*0  ■••ElS. 4,*  TORN*,/,  OUTtNO 

■••CIS.*.*  4N/CNS*»T4T,*R*0  •*,E13.3«*  0N/CN3«,/,0UTEN* 

•••? ) 3»*»  •  M*»TAT,*TA0  ■••F13.ii*  *•♦/•  OUTtNO 

•••?  i3.*,T*T,*X«Xl  •••ElS.*)  OUTtNO 

FORMAT (*0«,Tff ••ROINT  S  CONSTANT* ARE A,  SURSONIC-SURERSONIC  EJtCTOOUTENO 
-R  MR1NARV  NOIILE  EXIT*)  OUTtNO 

FORMAT (*0*»TEE**N0TE I  THE  UMME*  LIMIT  ROINT  MAS  USED  AS  THE  UMOUTENO 
•itino  CONOITION  F0R*,/.TS1**TME  constant-area,  SUMERSONIC-SUMEMSONOUTENO 
-1C  EJECTOR*)  OUTtNO 

FORMAT <*0*iTtt,*N0TC I  TMt  IUMOSKI  SEMARATION  ROINT  MAS  USED  AS  OUTtNO 
-THE  LIMITING  CONOITION  F0R*«/.TS1 ••THE  CONSTANT-ARFA*  SUMERSONlC-SOUTENO 
-URfRSONtC  EJECTOR*)  OUTtNO 

FORMAT (*0*.TEE.*NOTE )  THE  MATCHED  MtSSURt  ROINT  MAS  USEO  AS  THOUTENO 
•E  L1MITIN*  CONOITION  F0R*,/,T31 ••THE  CONSTANT-AREA,  SURtRSONIC-SUROUTENO 
•ERSONIC  EJECTOR* I  OUTtNO 

FORMAT (*0*»Ttf.*ROINT  5  CONSTANT-AREA.  SURFRSONIC-SURtRSONIC  EJECOUTENO 


•••E13.0) 

FORMAT t*0*»Tfl»*ROINT  A 
•R  SECONDARY  NOIILE  EXIT*,//, 
-T3).*AA 
-T3),*NM* 

-T3l.*R* 

•T3|,*R* 

-T31,*T* 

-TSl ••MAUI 


-TOR  RRIMARY  NOIILE  EXIT*) 
FORMAT (*0*» 


OUTtNO 

OUTtNO 

OUTtNO 

OUTtNO 

OUTtNO 


•T31«*AS  ■••E13.ii*  S-IN»/LOMOLE*.T4T,**S  •••tl3.4./. 

-T3)**MMS  •••El3.i>*  LIN/LOMOLt*«T4T.*MS  •*,E13.4«/* 

-T31»*RS  ••»E13.i»«  TORR*»TOT,*RSO  •••tlS.A,*  RSIA*,/, 

-T31»MS  •••E13,4.«  OM/CNJ*,T4T,*RSO  ■••tl3.4»*  ON/CMS* ./.OUTENO 

•TSl ••T*  ■••tl3.ii*  M*»T4Ti*TS0  ■••F13.ii*  M*»/»  OUTtNO 

•TSl ••MSMl  ■•«tl3,*,T*T»*XSXl  ••«C13,A)  OUTtNO 

FORMAT (*l*,Tff »*ROINT  *  CONSTANT-AREA,  SURSONIC-SURtRSONlC  EJECTOOUTENO 
-R  EXIT  AND  SUBSONIC*,/, T31 ••DIFFUSER  ENTRANCE*)  OUTtNO 

FORMAT t*0«.Tff.*ROINT  i  CONSTANT-AREA,  SURERSONIC-SURERSONIC  EJECOUTENO 


-TOR  EXIT  ANO  SU0S0N1C*«/,T31 ••OIFFUSER  ENTRANCE*) 
FORMAT (*•*, 


-T3J ,*A*  ■*«E13,i,*  S- I NI/LBMOLE • • TiT • *04  •••E13.4,/, 

-T3) ,*MMf  •*,E13.4,*  LBM/LBMOLE* • TiT , *M4  ■*,E13.4«/, 

•T3l»*Ri  ■*,C13,4«*  TORR*,TiT,*RiO  •••tlS.i.*  TORR*,/, 

•TSl ,*Ri  ■••ElS. 4.*  0M/CM3*.TiT»*R4C  ■*,C13.*«*  0M/CM3*»/»OUTENO 

•TSl »*T0  ■*»E13,4»*  M*,T4T,*Ti«  ■••113. 4.*  M*»F.  OUTtNO 

•T31,*M4M1  ■••E13.4,TiT,*X4Xl  ■••E13.4)  OUTtNO 


OUTtNO 

OUTtNO 

OUTtNO 

OUTtNO 

OUTtNO 


41SB 

*144 

41Tt 

41*4 

4140 

41*0 

4f  10 

4tt0 

4f30 

4tA0 

4fS0 

4140 

if  TO 

4f00 

4f40 

4300 

4310 

43E0 

4330 

43*0 

43S0 

4340 

43T0 

43*0 

*340 

4*00 

4*10 

4*f0 

4*30 

4**0 

4*S0 

4*40 

4*T0 

4*00 

4*40 

4S00 

4S10 

*SfO 

4S30 

43*0 

ASS* 

4S40 

4ST0 

4SB0 

4440 

4400 

4410 

**f  0 

4430 

44*0 

44S0 

4440 

44T0 

4440 

*440 


45 


AMFNDIX  * 
SUR*OUT|NC  OtITFNB 


CHCMICAL  l MIR  ANALYSIS  MNORRAN  (CtARt 
OVCRLAY  MAIN 


RAM  A-IT 


FORMAT (•o*»T??t*ROINT  T  SUASONIC  OlffUStR  HIT*,//, 


•T3I.»AT 

•TSI.MT 

.TSJ.*MT 

•TS»,*RT0 

-TS|,*RT« 

•TJ| •  •TYO 

-T3l.«X?Xl 


■•.€13. A. •  S-IN*/LNNOL€«»TAT. *FTAAT  ■••(13. A./. 

•  • ,r  1  3.A . TAT ,*MWT  ■••(13. A**  LBM/LRNOLC • • / • 

■•»K13.a.TaT.»RT  •••(13. A.*  TORN*,/, 

••.€13. A. •  TORR«.TAT.«RT  ■•.(13. A. •  RN/CM3*.'. 

••.€13. A. •  AM/CM3«.TAT.«TT  ■••€13. A.*  *•./• 

••.€13. A. •  K«,TaT.«WTM1  •••CIS. A,/, 

•••€13. Al  . 


'FORMAT j*1*.TS3.«SVST€M  CALCULATION  S€CTlON».//»TAO. •INITIAL  OAtA 
•  ) 

FORMAT (•0».T31.«NRANK  ■••! |3.TAT,«RT1NC  ■••(13. A**  *••/• 

•T3| .•MRR3  ••.€13. A. •  «»/»•! 

FORMAT c*0*. T31.«FRf ACT  •••Al 3.TAT,*NBANK  ■••113./. 

•T3l .•NCJCCT  ••.113.TAT,»RTIMC  ••,€13, A.*  S*./» 

•T31 ••NRR3  ■•.(13. A.*  RM/S«I 

FORMAT (•0*.T3S.*RC ACTANT  STORAOC  NCTMOO*,//, 1  <t(TSl ,AA1 1 ,/) . 

'FORMAT^io»tT3l!«RCSULTANT  OATAI*,//.TM.*SYSTCM  SCALC'U*  (ACTOR* 
-//.T31.«XLR  ■•,€13. A. •  RMOL€/S«> 

FORMAT (•0*,TS1.*LASCR  OCVICC  STSTIM  VOLUMC/MASS*,//, 

-T31,*minJ  ••,€13. A. •  LRN*,/»T31.«NCR  ■•.€13. A. •  LRM*./. 

-T3|,*MRASC  •••€13. A, •  LRM*,TAT.*VCOM»  ■••€13. A, •  (T3»»/. 

-TTl,«MCAV  ••,€13. A. •  LRM«,T*T,*VCAV  ■••€13. A,*  FTS»./. 

. T )1 , »MAW  ■••€13. A.*  LRM«.fAT.«VAR  ■••€13. A, •  (T3«./« 

•T3l,*MC3  •••€13. A.*  LRM*,TAT,»VCS  ■••€13. A.«  CT3*»/» 

-T31,«MORT  ••.€13. A, •  LRM»,TAT.«VORT  •••€13. A,*  (TS*./. 

•T3| , •M03  ••.€13. A,*  L»M«./.T31.*MLRR€«  ••.€13, a. •  LBM»./. 

-T31  .  •MLLJNC  •••€13. A. •  LRM«,/.T*f - 

-TTR,« _ ••/, T31 ••MLDHOM  ■•.C13.A.»  LRN», 

•TAT.*VLOMON  •••€13.A.*  FTS«./.T31 .«MLRT  ■•,€13. A.*  LRM*. 

•  TaT.«VLRT  ••»€  1 3. A»*  FT3*. /•  TAJ  »••-•--— -•-•• 

-TTA.»__. _ •,/,T31,»ML0S  ■•,€13. A,*  LRM*, 
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•CCS 

2190 

c* 

•CCS 

2200 

Ctei 

••••CCS 

2210 

c 

CCS 

2220 

c 

CCS 

2230 

XPnTOT«XPRl*XPR2*XPR3«XPR4 

CCS 

2240 

XFPR1«XPR1/XPRT0T 

CCS 

2290 

XFPR2«XPR2/XPRT0T 

CCS 

2260 

XFPR3»XPR3/XPRT0T 

CCS 

2270 

XFPR4-XPR4/XPRT0T 

CCS 

2280 

c 

CCS 

2290 
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APPENDIX  * 
»0(KiM  CCS 


CMEMtCAL  LAStR  ANALYSIS  PROORAK  «CLAP» 
OVERLAY  CCS 


UK  I*  9 


i 


C 

CCS 

tsoo 

C«tt 

•••CCS 

2310 

c« 

•CCS 

P320 

c* 

COMPUTE  HASS  FRACTIONS  OF  THE  RR INARY 

COMBUSTOR  REACTANTS 

•CCS 

2X30 

c« 

•CCS 

2340 

c*** 

•••CCS 

25*0 

c 

CCS 

23*0 

c 

CCS 

23T0 

CCS 

2300 

NFPR I »NRR i /VPRTO  T 

CCS 

23*0 

WFRA(aMRR?/NRRTOT 

CCS 

2400 

NFPR3«NPR3/N2»T0T 

CCS 

2410 

CCS 

2420 

c 

CCS 

2430 

c 

CCS 

2440 

€••• 

•••CCS 

24*0 

c« 

•CCS 

2460 

c« 

CONFUTE  PRIMARY  COMBUSTOR  PRODUCT  MOLAR 

FLO*  RATES  tKNOLC/Sl 

•CCS 

24T0 

c» 

•CCS 

2400 

•••CCS 

24*0 

c 

CCS 

2*00 

c 

CCS 

2910 

XPP1»XPR1»N1 

CCS 

2920 

XPP4»XPR1*H2 

CCS 

2*30 

XPPMXPR? 

CCS 

2*40 

XPPMXPR3*0  »9«XPR4*N3 

CCS 

2990 

XPPSTN«XPR*»N4-XPP*-4,0*XPPI 

CCS 

2960 

XPP3« ALPHA 4XPP3TN 

CCS 

2ST0 

XPPP»0 .*• 1 I . 0-ALPMA ) *XPP3TN 

CCS 

2900 

c 

CCS 

29*0 

c 

CCS 

2600 

£••• 

•••CCS 

2610 

c* 

1 

•CCS 

2620 

c« 

COMPUTE  PRIMARY  COMBUSTOR  PRODUCT  MASS  FLOP  RATES  IKO/Sl 

•CCS 

2630 

c« 

•CCS 

2640 

c**t 

•••CCS 

2690 

c 

CCS 

26*0 

c 

CCS 

2670 

MPPlaXPPl*< 12.0 lll*4.0«i8. *404) 

CCS 

2000 

wppi>xpp>«37.o«sa 

CCS 

24*0 

VPP3»XPP3*16.*«6* 

CCS 

2700 

IFtOFORMF.CO.OF)  wPP4aXPP4*U .007*7*10. **B4> 

CCS 

2710 

IF (DFORHF.EO.HF)  WPP*MPP4«C*, 01410*1R. **A4> 

CCS 

2720 

MPP9»XPP9*4. 00*60 

CCS 

2T30 

VPPA»XPP6*2B .0134 

CCS 

2740 

c 

CCS 

*790 

c 

CCS 

276* 

c*»« 

•••CCS 

*770 

c» 

•CCS 

2700 

c* 

COMPUTE  MOLE  FRACTIONS  OF  THE  PRIMARY 

COMBUSTOR  PRODUCTS 

•CCS 

*7*0 

c» 

•CCS 

2000 

c*«*« 

•••CCS 

2010 

c 

CCS 

2020 

c 

CCS 

2030 

XPPTOTiuXPPl *XPP2*XPP3*XPP4*XPP9*XPP6 

CCS 

2040 
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APPENDIX  8 
*80 MAM  CCS 


CHEMICAL  LASER  ANALYSIS  PROARAM  (CLAP) 
OVERLAY  CCS 


RASE  8-  4 


XFPP1«XPPS/XPPT0T 

CCS 

*eso 

XFPP*»XPP*/XPPTOT 

CCS 

*8*0 

XFPP3-XPP3/XPPTOT 

CCS 

*870 

XFPP4-XPP4/XPPT0T 

CCS 

*880 

XFP PS-XPPS/XPPTOT 

CCS 

*890 

XFPP6-XPP6/XPPTOT 

CCS 

*900 

c 

CCS 

*910 

c 

CCS 

*9*0 

c#*« 

•••••CCS 

*930 

c* 

•CCS 

*940 

c« 

COMPUTE  MASS  FRACTIONS  OF  THE  PRIMARY  COMBUSTOR  PROOUCTS 

•CCS 

*980 

c* 

•CCS 

*960 

c*** 

•••••CCS 

*970 

c 

CCS 

*980 

c 

CCS 

*990 

MPPT0T«WPP}+tfRP2»UPP3A«PP4tWPP5»WPP6 

CCS 

3000 

VFPP 1 aWPP 1 / VPPTOT 

CCS 

3010 

NFPP*«VPP*/UPPTOT 

CCS 

30*0 

VFPP3*MPP3/VPPT0T 

CCS 

3030 

VFPP4»MPPA/MPPT0T 

CCS 

3040 

VFPP5-WPP5/MPPT0T 

CCS 

3080 

WFPPMMPP6/WPPT0T 

CCS 

3060 

VP8MPP-MP6/VPPT0T 

CCS 

3070 

c 

CCS 

3080 

c 

CCS 

3090 

€••« 

3100 

c* 

•CCS 

3110 

c* 

COMPUTE  SECONOARY  REACTANT  MOLAR  FLOW  RATES  IKMOLE/S] 

•CCS 

31*0 

c* 

•CCS 

3130 

Cm 

3140 

c 

CCS 

31S0 

c 

CCS 

3160 

IFfOFORHF.EO.DF)  XSRl-VSRj/4. 0*8*0 

CCS 

3170 

I F (OFORHF  f  EO .HF >  XSR 1 «*SR 1 /* . 0 1 894 

CCS 

3180 

XSR?«WSR*/4. 00260 

CCS 

3190 

XSR3-NSR3/26.0134 

CCS 

3*00 

c 

CCS 

3*10 

c 

CCS 

3**0 

c*** 

••(/••CCS 

3*30 

c* 

•CCS 

3*40 

c* 

COMPUTE  MOLF  FRACTIONS  OF  THE 

SECONOARY 

REACTANTS 

•CCS 

3*80 

c* 

•CCS 

3*60 

3*70 

c 

CCS 

3*80 

c 

CCS 

3*90 

XSRTOT«XSRi «XSR**X$R3 

CCS 

3300 

XFSR1-XSRI/XSRTOT 

CCS 

3310 

XFSR**XSR?/XSRTOT 

CCS 

33*0 

XFSR3»XSR3/XSRTOT 

CCS 

3330 

c 

CCS 

3340 

c 

CCS 

3380 

c»*« 

•••••CCS 

3360 

c* 

•  CCS 

3370 

c* 

COMPUTE  MASS  FRACTIONS  OF  THE 

SECONOARY 

REACTANTS 

•CCS 

3380 

c* 

•CCS 

3390 
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APPfNOTX  *  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 

PROGRAM  CCS  OVERLAY  CCS  PAOE  R-  7 


C«M 

3400 

c 

CCS 

3410 

c 

CCS 

3420 

W$RT0T»WSR1*WSR2*WSR3 

CCS 

3430 

SKl«WSRi/WSRTOT 

CCS 

3440 

WFSR2-WSR2/WSRT0T 

CCS 

34S0 

WFSR3«WSR3/*SRT0T 

CCS 

3440 

c 

CCS 

3470 

c 

CCS 

34R0 

c**« 

3400 

c* 

•CCS 

3*00 

2 * 

COMPUTE  CAVITY  PRODUCT  MOLAR  FLOW  RATFS  tWWOLF/Sl 

•CCS 

3S10 

c* 

•CCS 

3S20 

3*30 

c 

CCS 

3*40 

c 

CCS 

35*0 

XCPlwXPRl 

CCS 

3560 

IF(OFORMF.EO.HF)  SO  TO  101 

CCS 

3*70 

XCP2»XPP4 

CCS 

3500 

XCP3*2.0*XPR2*XPP3 

CCS 

3*00 

XCP6«2,0«XSR1-XCP3 

CCS 

3600 

00  TO  10? 

CCS 

3610 

101 

XCP?»2.0»XPP?*XPP3 

CCS 

3620 

XCP3»XPP4 

CCS 

3630 

XCP6»2.0«XSR1-XCP? 

CCS 

3640 

10? 

XCP4>XPP5«XSR? 

CCS 

3650 

XCPSaXPP6«XSR3 

CCS 

3660 

3670 

CR 

•CCS 

3600 

c* 

COMPUTE  CAVITY  PRODUCT  MASS  FLO*  RATES  fKO/Sl 

•CCS 

3690 

c* 

•CCS 

3700 

3710 

c 

CCS 

3720 

c 

CCS 

3730 

WCP1>XCPI«R0.0047 

CCS 

3740 

WCP?«XCP2*?0.0064 

CCS 

37*0 

WCP3*XCP3*21 .0125 

CCS 

3760 

WCP4"XCP4*4 . 00200 

CCS 

3770 

WCP*«XCPS»28.0134 

CCS 

3700 

I F ( OFORHF . EQ .OF )  WCP6- XCP6»8 .01410 

CCS 

3790 

IF (DFORMF.Ea.HF)  WCP6*XCP6*1 .00797 

CCS 

3000 

c 

CCS 

3010 

c 

CCS 

3020 

£•••< 

3030 

c« 

•CCS 

3040 

c* 

COMPUTE  MOLE  FRACTIONS  OF  THE  CAVITY  PRODUCTS 

•CCS 

3050 

c» 

(1)  WITHOUT  MIRROR  PUROE 

•CCS 

3060 

c« 

(2)  WITH  MIRROR  PUROE 

•CCS 

3070 

c* 

.  *CCS 

3080 

c***< 

3090 

c 

CCS 

3900 

c 

CCS 

3910 

XCPT0T«XCP1*XCP2*XCP3*XCP4*XCPS*XCP6 

CCS 

3920 

*FCPl<i»«XCPl/XCPTOT 

CCS 

3930 

XFCP2 <1 ) ■XCP2/XCPT0T 

CCS 

3940 
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APPENDIX  B 
PR08RAM  CCS 


CHEMICAL  LASER  ANALYSIS  PR09RAM  »ClaR> 

OVERLAY  CCS  PA8E  8-  • 


XFCP3  ( 1 )  »XCP  J/KCPTOt 

CCS 

38S0 

XFCP4 C 1 ) «XCP4/XCPT0T 

CCS 

3880 

XFCP9 ( 1 ) pXCPS/XCPTOT 

CCS 

3970 

XFCP6( 1 ) •XCP6/XCPT0T 

CCS 

3980 

XCPT0T»XCPT0T*WP8/28« 0 1 3* 

CCS 

3990 

XECR1 (?) “XCP1/XCPTOT 

CCS 

4000 

XFCP?(?)"XCP?/XCPTOT 

CCS 

4010 

XPCR3 (?) »XCP3/XCPTOT 

CCS 

40?0 

XFCP4(?)»XCP4/XCPT0T 

CCS 

4030 

XPCRS(E) ■ ( XCRS*WP8/?8 .0134) /XCPTOT 

CCS 

4040 

XFCP8 (?) •XCP6/XCPT0T 

CCS 

40S0 

c 

CCS 

4080 

c 

CCS 

4070 

c*« 

•••CCS 

4080 

c« 

•CCS 

4090 

c« 

COMPUTE  MASS  FRACTIONS  OF  THE  CAVITY  PRODUCTS 

•CCS 

4100 

c* 

WITH  MIRROR  PUROE 

•CCS 

4110 

CP 

•CCS 

41?0 

CPP 

•••CCS 

4130 

C 

CCS 

4140 

c 

CCS 

4190 

WCPT0T»WCPl*WCP?*WCP3»WCP4*WCP5*WCP6*WP8 

CCS 

4180 

wrcPi»wcPi/wcPTOT 

CCS 

4170 

WFCP?»WCP?/WCPTOT 

CCS 

4180 

WFCP3-WCP3/WCPT0T 

CCS 

4190 

WFCP4-WCP4/WCPT0T 

CCS 

4?00 

WFCP5- (WCP5*WP8) /WCPTOT 

CCS 

4?10 

WFCP6-WCP8/WCPT0T 

CCS 

4??0 

C 

CCS 

4?30 

c 

CCS 

4?40 

CPP 

'•••CCS 

4?S0 

c* 

•CCS 

4?80 

CP 

COMPUTE  THE  DILUENT  AND  MIXTURE  RATIOS 

•CCS 

4?70 

c* 

•CCS 

4280 

c* 

NOTE!  TRW  ASSUMES  EXCESS  0?  IS  NOT  USED  IN  THE  PSIL  CALCULATION! 

•CCS 

4?90 

c* 

HENCE.  0ME8A  IS  DIFFERENT. 

•CCS 

4300 

c* 

•CCS 

4310 

CPP 

'•••CCS 

43?0 

c 

CCS 

4330 

c 

CCS 

4340 

PSIC«(XPPi*XPP4*XPP5*XPP6)/<XPP?.0.SPXPP3) 

CCS 

4390 

PSIL«(XSR1*XSR?»XSR3)/(XPP?*0.9*XPP3.) 

CCS 

4380 

PSILTRW* (XSR?*XSR3) /(XPP?*0.9*XPP3) 

CCS 

4370 

RC«(XPR4PN?)/(XPR1P(4.0*N1*N?) ) 

CCS 

4380 

RL«XSR1/(XPP?.0.S*XPP3) 

CCS 

4390 

RLF*(XSR1«XSR?«XSR3)/(XPP?*0.SPXPP3) 

CCS 

4400 

0ME8A«PSIC*PSIL 

CCS 

4410 

OMreTRW«PSIC*PSILTRW 

CCS 

4420 

c 

CCS 

4430 

c 

CCS 

4440 

C*P 

'•••CCS 

4490 

c* 

•CCS 

4480 

c* 

COMPUTE  THE  AVALI ABLE  FLUORINE  FLUX 

•CCS 

4470 

c» 

•CCS 

4480 

ARBrNOIX  B 

rrooram  res 


CMCMICAL  LASER  ANALYSIS  RROORAM  iCLARt 
OVERLAY  CCS 


RA4C  B-  * 


C 

c 

c 

c 

C»< 

c« 

c* 

c* 

c* 

C* 

C« 

c* 

c« 

c» 

c« 

c» 

c* 

c« 

c» 

c« 

c* 

c 

c 


c 

c 

<;•*< 

c« 

c« 

c* 

c*«< 

c 

e 

103 


EDAAaXRBS/AEXR 


COMPUTE  THE  HEAT  RELEASE  VHEREl 

DEE  ■  HEAT  Of  COMBUSTION  (J/KMOLE)  EOR  THE  REACTION 
OE  ♦  E  ■  OE  *0 

OPEE  •  MEAT  OE  COMBUSTION  I J/KMOLC)  EOR  THE  REACTION 
03  ♦  EE  »  EOE 

MEE  ■  HEAT  OE  COMBUSTION  tJ/EMOLEI  EOR  TME  REACTION 
HE  ♦  E  »  ME  ♦  M 

HEEE  »  MEAT  OE  COMBUSTION  t J/KMOLC 1  EOR  TME  REACTION 
H?  *  E?  ■  EME 


IE  (OEORMF.EO.DE)  0«OEE*XERR3*OEEE«XlrRRE 
IE <OEORHF.EO.ME )  QaM?F«XERR3*MEEE«* FREE 


OUTRU.  RESULTS 


CALL  OUTCCS 
END 


CCS 

*100 

CCS 

*810 

CCS 

*1E0 

CCS 

*830 

CCS 

*8*0 

'••CCS 

*180 

•CCS 

*800 

•CCS 

*870 

•CCS 

*100 

•CCS 

*800 

•CCS 

*800 

•CCS 

**10 

•ces 

*ARO 

•CCS 

*030 

•ces 

*8*0 

•CCS 

*880 

•CCS 

*880 

•CCS 

*870 

•CCS 

*800 

•CCS 

*8*0 

•CCS 

*700 

•••CCS 

*710 

CCS 

♦  TEO 

CCS 

*730 

CCS 

*7*0 

CCS 

*780 

CCS 

*780 

CCS 

*770 

•••CCS 

*780 

•CCS 

*7*0 

•CCS 

*800 

•CCS 

4010 

•••CCS 

«BEO 

CCS 

*030 

CCS 

*0*0 

CCS 

*080 

CCS 

*080 
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APPENDIX  P  CHEMICAL  LASER  ANALYSIS  PROSPAM  CCLAP) 


SUBROUTINE  INCCS  OVERLAY  CCS 

PABE 

••10 

SUBROUTINE  INCCS 

INCCS 

0100 

C 

INCCS 

ouo 

C 

INCCS 

01Z0 

C«< 

•••INCCS 

0130 

C» 

•INCCS 

01*0 

C* 

INPUT  SUBROUTINE  (INCCS! 

•INCCS 

01S0 

e* 

•INCCS 

0100 

c«« 

•••INCCS 

0170 

c 

tNCCS 

0100 

c«« 

•••INCCS 

0)00 

c« 

•INCCS 

ozoo 

c* 

SUBROUTINE  INCCS  CONTROLS  THE  INPUT  Of  INITIAL  OATA  POP  THE 

•INCCS 

0Z10 

c« 

COMBUSTION  CHEMISTRY  SECTION, 

•INCCS 

ozzo 

c« 

•INCCS 

0Z30 

c« 

INPUT/OUTPUT  VARIABLES! 

•INCCS 

oz*o 

c* 

•INCCS 

0250 

c* 

AEXP 

■  NOZZLE  BANK  AREA  OF  THE  EXPERIMENTAL  DEVICE  IMS) 

•INCCS 

0200 

c« 

ALPHA 

■  FLUORINE  DISSOCIATION  FRACTION 

•INCCS 

OZTO 

c* 

CCSS1 

a  CONTROL  VARIABLE 

•INCCS 

0280 

c* 

CCSS2 

■  CONTROL  VARIABLE 

•INCCS 

0290 

c« 

dforhf 

>  CONTROL  VARIABLE  SUCH  THAT! 

•INCCS 

0300 

c* 

•  "OF"  FOR  A  OF  CHEMICAL  LASER 

•INCCS 

0310 

c* 

>  "HF"  FOR  A  HF  CHEMICAL  LASER 

•INCCS 

0320 

c« 

NI 

■  NUMBER  OF  CARBON  ATOMS  IN  REACTANT  MPR1 

•INCCS 

0330 

c« 

N? 

■  NUMBER  OF  HYDROSEN  ATOMS  IN  REACTANT  MPR1 

•INCCS 

03*0 

c* 

N3 

•  NUMBER  OF  NITROSEN  ATOMS  IN  REACTANT  MPR* 

•INCCS 

0350 

c» 

NA 

a  NUMBER  OF  FLUORINE  ATOMS  IN  REACTANT  MPR* 

•INCCS 

0380 

c« 

SETCCS 

•  CONTROL  VARIABLE 

•INCCS 

0370 

c* 

MPB 

•  MASS  FLON  RATE  OF  MIRROR  PUR8E  N2  IKA/S) 

•INCCS 

0380 

c* 

MPR1 

•  MASS  FLON  RATE  OF  C-Nl  H-H?  (C-Nl  D-N2!  (KB/S) 

•INCCS 

0390 

c* 

MPR? 

a  MASS  FLOM  RATE  OF  HE  (KB/S) 

•INCCS 

0*00 

c* 

MPR3 

a  MASS  FLOM  RATE  OF  N2  (KB/S) 

•INCCS 

0*10 

c* 

MPR* 

a  MASS  FLOM  RATE  OF  N-N3  F-N*  (KB/S) 

•INCCS 

0*20 

c« 

MSRJ 

a  MASS  FLOM  RATE  OF  D?  (HZ)  (KB/S) 

•INCCS 

0*30 

c« 

MSR2 

a  MASS  FLOM  RATE  OF  HE  (KB/S) 

•INCCS 

0**0 

CP 

MSP  3 

a  MASS  FLOM  RATE  OF  N?  (KB/S) 

•INCCS 

0*50 

c* 

•INCCS 

0*80 

c» 

NOTE! 

ALL  INPUT  IS  IN  SI  UNITS. 

•INCCS 

0*T0 

c* 

•INCCS 

0*80 

c* 

•••INCCS 

0*90 

c 

INCCS 

0500 

c 

INCCS 

0510 

REAL  NO 

INCCS 

0520 

c 

INCCS 

0530 

COMMON/CCS 1 /CCSS  1 

INCCS 

05*0 

c 

INCCS 

0550 

COMMON/CCS?/ AE XP , ALPHA , MP  J , MPR 1 .MPR2,MPR3.MPR*t MSRj .MSR2.MSR3 

INCCS 

0580 

c 

INCCS 

0570 

COMMON/CCS 3/DFORUF 

INCCS 

0580 

c 

INCCS 

0590 

COMMON/CCSS/NI  «N?,,"'*  ,.»* 

INCCS 

0800 

c 

INCCS 

0610 

COMMON /M A 1K3/SETCCS 

INCCS 

0820 

c 

INCCS 

0830 

OATA  NO/2HNO/» YE5/3HYE5/ 

INCCS 

06*0 
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APPENDIX  P  CHEMICAL  LASER  ANALYSIS  PR06RAM  (CLAP) 

SUPROUTINE  INCCS  OVERLAY  CCS 

PA6E 

6-11 

C 

INCCS 

0A50 

INCCS 

0400 

•WSR1*WSR?«WSR3 

INCCS 

0470 

c 

INCCS 

0440 

c 

INCCS 

0400 

C***' 

INCCS 

OTOO 

c« 

•INCCS 

0710 

c* 

SET  DEFAULT  VALUES 

•INCCS 

0720 

c« 

•INCCS 

0730 

(••• 

••INCCS 

0740 

c 

INCCS 

0750 

c 

INCCS 

0740 

WRITE(4*201> 

INCCS 

0770 

N#* 

RE60(5,?02)CCSS1 

INCCS 

OTOO 

IF(SETCCS.EQ.NO)  60  TO  101 

INCCS 

0700 

AEXPa3,6i933E>03 

INCCS 

0400 

ALPHA-0, 002700 

INCCS 

0610 

DF0RHF-2H0F 

INCCS 

0420 

N|il 

INCCS 

0430 

N2-4 

INCCS 

0440 

N3-1 

INCCS 

0450 

N4-3 

INCCS 

0440 

WP6-0.0 

INCCS 

0470 

WPRI-3.42160E-03 

INCCS 

0680 

WPR?«17*?416E_03 

INCCS 

0890 

WPR3-0.0 

INCCS 

0*00 

WPR4-S7. 1093E-03 

INCCS 

0910 

WSR1-4.37250E-03 

INCCS 

0920 

WSR?-33,4S14E-03 

INCCS 

0930 

WSR3-0.0 

INCCS 

0940 

SETCCSaNO 

INCCS 

0950 

iriCCSSi.EO.YES)  80  TO  10? 

INCCS 

0940 

CCSS1-YES 

INCCS 

0970 

RETURN 

INCCS 

0940 

c 

INCCS 

0990 

c 

INCCS 

)000 

c*** 

*• INCCS 

1010 

c« 

•INCCS 

1020 

c* 

CONTROL  STATEMENTS 

•INCCS 

1030 

c* 

1 INCCS 

1040 

C*** 

••INCCS 

1050 

c 

INCCS 

1060 

c 

INCCS 

1070 

ioi 

IF(CCSS1*EQ.N0)  RETURN 

INCCS 

1040 

1 02 

MRITE (6*?03) 

INCCS 

1090 

READ (5*?0?) CCSS? 

INCCS 

1100 

IF(CCSSJ.EO.NO)  60  TO  103 

INCCS 

1110 

REWIND  1 

INCCS 

1120 

READ ( 1 ) AEXP* ALPHA tDFORMF  *Nl *N2«N3*N4* WP8*WPR1 « WPR2*WPR3»WPR4«WSRl » INCCS 

1130 

-WSR?,WSR3 

INCCS 

1140 

RETURN 

INCCS 

1150 

103 

WRITE  16*204) 

INCCS 

1160 

READ (5*205) DFORMF 

INCCS 

1170 

WRITE (6.296) 

INCCS 

1180 

WRITE (6*207) AEXP* ALPHA »N1 .N2.N3.N4.WP8* WPRl ,WPR2l.WPR3»WPR4»WSRl • 

INCCS 

1190 

AMtNO  IX  A 
sun  wot  ini  inccs 


CHINICAL  LAMP  ANALYSIS  WOMAN  (CLAP) 
OVIPLAV  CCS 


PAM  1.11 


C 

c 

C** 

c« 

c* 

c« 

C»» 

c 

c 

tei 

tot 

Ml 

toe 


tes 

tee 

tOT 


.NSPP.MSP3  INCCS 

PCAO(S.NLCCS)  INCCS 

PCMINOJ  INCCS 

MITIUIAIXP,  ALPHA.  OPOBHP.Nl,Nt.N3.N4.NPS.NPPl.*PPp.»PP3.MM4«  INCCS 
-NSPl.NSBt.MSP3  INCCS 

INCCS 

iNecs 

••••••••••••••••••••••••••••••••••••••••••((•••••••••••••••••••••••A inccs 

•INCCS 

POPNAT  STATINCNTS  • INCCS 


•INCCS 

•INCCS 

INCCS 


INCCS 

POPNAT(M«*Tt.*AB|  NCM  CONSUSTION  ChCNISTPY  INPUTS  BlOUIPCO?*./)  INCCS 
POPNAT (A3)  INCCS 

POPNAT (•••.Tt.MMOULP  INPUT  OATA  PI  PI AO  PPON  TAPI it*,/)  INCCS 

POPNAT (•l«.Tt.*SCLCCT  THl  LASIP  CHlNISTPv  PPON  TNI  POLLOStNS  LIST) INCCS 
-•t//»Tf,««»OP"  POP  A  OP  CHtNICAL  LASIP**/, Tf. ••HP"  POP  A  HP  CHtNICAINCCS 


-L  LASIP*./) 
POPNAT (A|) 


INCCS 

INCCS 


POPNAT (•l**Tt»*INPUT  DATA  POP  THl  CONSUSTION  CHINISTPT  SCCTION  BY  INCCS 

-NANtLIST.*«/tTt(«CUPPlNT  VALUIS  AP||«)  INCCS 

POPNAT (•  •»TZ.*SNLCCS«,Tt*.«AZXP  ■•«Cl3.A*TS0.*ALPHA  ••»  INCCS 

•C13.A./.rti*Nl  ••.I13.Tt*.«Nt  •••I13.TS0.4N3  •*,  INCCS 

•I13./.Tt.*NA  1 13; Tip* •WPS  •••I13.0.TS0.4MPP1  ••*  INCCS 

“I13.0./.TP .*NPNt  ■•*ll3.6,Tte.*MPP3  •••Il).t*T»*  INCCS 

-•UW*  ••.C13.A,/.Tt,»MSPl  ■*.! 13.6.TtO.*MSNZ  •••113.*.  INCCS 

•TS4.«MSP3  •••113. A.*  S«./l  INCCS 

SW  INCCS 


>  tee 
me 
itte 
itse 
itee 
>tse 

HI 

•TO 

tse 

tee 

see 

sie 

3te 

33* 

340 

359 

see 

3T0 

see 

see 

400 

410 

4t0 

430 

440 

4S0 

400 

4T6 

400 

400 
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JJJ  7 1 


$7  APPFNOIX  P  CHf*»tCAL  LASER  ANALYSIS  AROMA*  (CLAP) 

|  SUBROUTINE  OUTCCS  OVERLAY  CCS  PAOE  0-13 


s  > 


SUBROUTINE  OUTCCS  OUTCCS  0100 

C  OUTCCS  0110 

C  OUTCCS  01 »0 

(-•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCCS  01  SO 

C«  •OUTCCS  01  AO 

C*  OUTPUT  SUBROUTINE  (OUTCCS)  ‘OUTCCS  0190 

C*  “OUTCCS  01*0 

(•••••••••••••••••••••••••••••••••••••••••••••••••••A*** .•••••••••••••••OUTCCS  01T0 

r  outccs  01*0 

(•••••••••••••••••••••••a* •••••••••••••••••• ••••••••••••■••••••••••••••••OUTCCS  01*0 

C«  ‘OUTCCS  otoo 

f*  SUBROUT INr  OUTCCS  PRINTS  T*F  COMBUSTION  CNF*ISTRY  SECTION  RESULTS  “OUTCCS  Otl« 

C*  OF  PP09RAM  CLAP  IN  SI  UNITS  ON  TERMINALS  WITH  A  MINIMUM  OF  13?  ‘OUTCCS  OtfO 

C*  CHARACTERS  PER  LINF.  “OUTCCS  OF JO 

C*  *OUTCCS  OFAO 

(••••*••••••••••••••••••••••••.••••••••••••••••••••••. .•••••••••••••••••OUTCCS  0?90 

C  OUTCCS  OFBO 

C  OUTCCS  OtTO 

COMmON/CCSF/ACXP, ALPHA .WP«.wPRi.WPR?. MPR.T. WP**»WSRl,WSR?»WSR3  OUTCCS  OtSO 

C  OUTCCS  OtOO 

C0MN0N/CCS3/0F0RHF  OUTCCS  0300 

C  OUTCCS  0310 

COMNON/CCSA/FOAA  OUTCCS  03?0 

c  OUTCCS  0330 

C0MM0N/CCSB/N],NF,N3,NA  OUTCCS  03*0 

C  OUTCCS  0390 

COMNON/CCSB/OMEet.OMFSTRW.PSlC.PSIL.PSILTRW.RC.RLF.wFCPl.wFCPt.  OUTCCS  0300 

-WFCP3tWFCPA.WFCP9.MFCP*  OUTCCS  03T0 

C  OUTCCS  03B0 

COMMON /CCST/O  OUTCCS  0390 

r  outccs  oaoo 

COMMON /CCSB/BL  outccs  0*10 

c  OUTCCS  OAPO 

COMMON/CCS 1F/XFCP1 (?) .XFCPF (?) ,XFCP3(?) »XFCP*(F) .XFCPS (F) , XFCP6 (?) OUTCCS  0*30 
C  OUTCCS  OAAO 

DATA  OF/?HOF/,HF/?MHF/  OUTCCS  0*90 

C  OUTCCS  0**0 

C  OUTCCS  OATO 

C* ••••••*•••••*•••••*•*•••••••••*••••••••*•••••*•••••••••• ••••••••••••••OUTCCS  0**0 

C*  •OUTCCS  0*00 

C*  OUTPUT  INITIAL  OAT*  •OUTCCS  0900 

C*  “OUTCCS  0910 

(••••••‘••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCCS  09?0 

C  OUTCCS  0930 

C  OUTCCS  09*0 

CALL  OATE(ROATE)  OUTCCS  0990 

WRITE(?0.?01IROATE  OUTCCS  09*0 

IFlOFORHF.EO.OF)  WRITE (?0.?0?) AEXP. ALPHA, OFORHF.Nl .NF.N3.NA.WP*.  OUTCCS  0970 

•WPRj,Nj,N?,WPR?.WFR3.NPR*.N3.N*.WSRl.WSR?.W$R3  OUTCCS  09*0 

IF(DFORHF.EO.HF)  WRITE ( FO. F03 ) AEXP. ALPHA .OFORHF »Nl .nF.N3.NA.WP9.  OUTCCS  0990 

-WPRl,Nj,N?,WPR?.WPR3,WPR*,N3,N*.WSRl.WSR?.WSR3  OUTCCS  0*00 

C  OUTCCS  0*10 

C  OUTCCS  0*F0 

(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCCS  0*30 

C*  *OUTCCS  0**9 


f 

i 
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ARRFNOIX  * 

subroutine  outers 


CHEMICAL  LASER  ANALYSIS  RROBRAM  IClAR) 
OVERLAY  CCS 


RASE  0«1* 


OUTRUT  RESULTANT  OATA 


•OUTCCS 

•OUTCCS 


OUTCCS 

OUTCCS 

OUTCCS 

•RITE Ct0.t04)FDAA.OMf OA.ONEOTRW.BSIC.BSIL.BSILTRW.o.RC.AL.BLF  OUTCCS 
IE cORORNr.ra. or )  WAITC<f0.f03IWFCBl.xrCAl<tl.WFCBt,xRCBtIt).MFCR3,OUTCCS 
•*RCR3I»».urCP*.*RCRA(R» ,WFCB3.XFCR3<tl .KrCBO.xrCBOrt)  OUTCCS 

IR(ORORNR.EO.HF)  WRITE lf0.t06)MFCRl .XFCRl ct> .WFCRE, iFCRt (t) .WFCR3, OUTCCS 
•XFcRSltl .WFCRA.XFCRAIt) ,wrCR5.XRCRSlE> ••rcra.xrcrscri  OUTCCS 

OUTCCS 

OUTCCS 

»•——•— —•••••••••••————•—••—•—••••— •••—••••••••OUTCCS 


FORMAT  STATEMENTS 


•OUTCCS 

•OUTCCS 

•OUTCCS 


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTCCS 

OUTCCS 

OUTCCS 

FORMAT I»1»,///////.T*T, •CHEMICAL  LASER  ANALYSIS  RRORRAM  (CLAR) •, //OUTCCS 
*.TS3» •WRITTEN  BY  I  C.L.  A0AMS*,/,T69.*A.L.  ADOV*,/,T89.»R.O.  MASEEYOUTCCS 
■•»/»T65»»C.O.  MlKKELiEN*. / »T69«»8,F,  MORb*. /,T09.*R.L.  ORLUKI AN*, /OUTCCS 
-.T*0,*0.J.  WALKER*//. TOO. •!  JANUARY  TT«,//,T51 ♦•AFROOYNAMlCS  OROUOUTCCS 
•R  (OROMI-TOM I ••/• T9. ••SYSTEM  SIMULATION  OIRFCTORATF*»/,T«R.»U.S.  AOUTCCS 
-RMV  MISSILE  RESEARCH  A  OEVELORMFNT  COMMAND*. /.TSl ••REDSTONE  ARSENAOUTCCS 
-L.  ALABAMA  3Sa09*.//.TS7.«RUN  DATE  •.AlOl  OUTCCS 

FORMAT f •0*,///.T9?. •COMBUSTION  CHEMISTRY  SFCTION*.//.T««.  OUTCCS 


•INITIAL  DATA  I •»//» 

T3».*AEXR  •••FI3.6.*  Mf*,T06.«ALRMA  ■•.E13.6,/, 

T3F.«0F0RHF  ■•.A13.T66.*N1  >«.Il3.«  ATOMS  C*,/. 

T3t.«Nt  •••I  13.*  ATOMS  M«,T06.*N3  ••.113,*  ATOMS  N»./» 

T3j,*N*  ■*. 1 13.*  ATOMS  F*.T«6.*WR«  ■•.E13.6,*  KO/S  Nt*. 

T3E.«WRR1  ••.E13.6.*  K8/S  C*. I l .•H*. I I . 

Tft«,*WRRF  •••E13.6.*  KO/S  ME*,/.T3t.*WRR3  -•.FIS. 6. 

•  KO/S  N?»,T66.*WRR*  •••E13.6.*  KO/S  N*.I l.»F»»I1 . ./.T3t, 

-•WSR1  -*.€13. 6. •  KO/S  Ot«.T*0.*WSRt  ■•.EI3.0.*  KO/S  ME*./. 
•T3F.«WSR3  -*.EI3.6.*  KO/S  N?*» 


FORMAT ( *0*. /////. T9?» •COMBUST I ON  CHEMISTRY  SECTION-, //.TOO. 


••INITIAL  DATA J • 
•T3f,«AEXR  •• 
•T3f • -OFORMF  -• 
•T1|,»N?  ■• 
•T3*,*N*  ■• 
-T3F,«WRR1  •• 
•TAO,«WRR?  -« 


••WSR1  ■•  .E  1 3 
•T3f,»W$R3  ■• 


■T3E,«F0AA  ■• 
•T3F,»0ME0TRW  ■• 
•T3?»»RSIL  ■• 
•T3E.«0  •• 
■T3?»*RL  ■• 
FORMAT (•A*. 


//.  OUTCCS 
El  3.0, •  MF*,T06,«ALRMA  -•.E13.0./,  OUTCCS 
A]3,T66.*N1  >••113. •  ATOMS  C*,/.  OUTCCS 
113.*  ATOMS  M«,T00.*N3  ••.113,*  ATOMS  N»,/»  OUTCCS 
113.*  ATOMS  F*,TOO.*MR«  ■•.E13.0,*  KO/S  Nt*./, OUTCCS 


E 1 3.6. •  KO/S  C», I 1 ••M-* I 1 , 


//,  OUTCCS 
E13.0.*  M?«,T60.»ALRMA  -••E13.6,/,  OUTCCS 
A13.T0«.*N1  ■••113, •  ATOMS  C»,/.  OUTCCS 
M3.*  ATOMS  0*.T06.*N3  ■•.113, •  ATOMS  N*,/,  OUTCCS 
1 13,*  ATOMS  F*,TOO«*KRO  ■••E13.A,*  KO/S  Nt*. /.OUTCCS 
E13.6,*  KO/S  e«,!l.»D«,!l.  OUTCCS 
ri3.0.«  KO/S  HE*,/,T3tf*WBR3  ■•.F13.0.  OUTCCS 


OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 

OUTCCS 


-•  KO/S  Nt»,TCS.*WRR*  ■••E13.6,*  KO/S  N», 1 1 ,*F*. 1 1 , ./,T3t, 


*»•  KO/S  Mt*./,TA6.«WSRt 
E13.6, •  KO/S  Nt*) 


OUTCCS 


FORMAT ( *0* , T99 , •RESULT  ANT  OAT A I • , // , 


E13.6,*  KM0LE/S-Mt*,T06.»0ME0A 
E13.6«T06,*R$1C  ■••E13.0,/, 

E 13.0, TOO. «RSILTRW  ■••E13.0./, 
El  3.6 ••  J/KM0LE«,T00,»RC 
E13.6,T06,*RLF  ■•,Cl3.o) 


■•»E13.0»*  KO/S  ME*. /.OUTCCS 

OUTCCS 

OUTCCS 

ISA  ■••E13.0,/.  OUTCCS 

./,  OUTCCS 

./,  OUTCCS 

■•*El3.0»/»  OUTCCS 

)  OUTCCS 

OUTCCS 


■•»El 3.0./. 
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ARAENOIX  ft 

suaaoutine  outccs 


-T3e,*vecai 
•T)t,urcM 
-T3E,*|fECA3 
-T3E.*NEcA* 
-T3?,**ecAS 
-€3E.*UECAa 
FORMAT f*0*. 
-T3f***ECRi 
-T3*.*l trcP? 
-T3€.*VECR3 
“T3F,*VECR* 
-T3e,*vecEA 
«T3E,*tiECR6 
END 


CHEMICAL  LASER  ANALYSIS  RROSRAM  iCLAA) 
OVERLAY  CCS 


■••F13.A.*  CE**,T4A,*XECE1 
■••riS.A.*  MF*,T4A,*XECR? 
■••€13. A«*  DF*,TA*. *XECRJ 
••*€13. A.*  HE*,T44,*XEcR* 
■•*€13. A»*  NE*,T4A,*XFCR9 
■•♦€13. A.*  D*,T44**XECA4 

■*•€13, A, •  CE4**T44**XECAI 
■••E13.A**  HE**TA4»*XECRE 
•••€13. A, •  0E*,T46,*XECR3 
■••€13. A. •  HE*»T44,*XECR4 
•*•€13. A»*  N?*t TA6,*XECRS 
•*•€13. A.*  M*,T4A,*XECA4 


•••€13, A. •  CE**,/, 
■••El 3.A.*  HE*,/, 
•••€13.4. •  or*,/, 
•••€13, A,*  HE*,/, 
-*,E]3,4,*  Nf*,/, 
■••ri3.4«*  o*» 

■••€13, A,*  CE4**/, 
■**€l 3»6»*  HE*,/, 
■*•€13, 4,*  OF*,/, 
•*•€13.6,*  HE*,/, 
■••€13, 4t*  N?*,/, 
■••€13.4**  M*» 


EASE  *-H 


OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS 
OUTCCS  < 


63 


APPFNOIX  C  CMfMJf AL  LASER  ANALYSIS  PROGRAM  (CLAP) 


PROGRAM  LOS  OVERLAY  LOS 

PAGE 

C-  l 

OVERLAY<LOS.Z.O) 

LOS 

0100 

PROGRAM  LOS 

LOS 

0110 

C 

LDS 

OIZO 

c 

LOS 

0130 

c** 

►••LOS 

01  AO 

c* 

•LOS 

OISO 

c» 

LASER  OEVICr  OVERLAY  (LOS) 

•LDS 

0100 

c* 

•LOS 

01  TO 

c«* 

'••LOS 

0 1  AO 

c 

LOS 

01S0 

e«* 

••»LOS 

0700 

c* 

•LOS 

0Z10 

c» 

OVERLAY  LOS  CONTROLS  THF  LASER  DEVICE  CALCULATIONS  FOR 

PROGRAM 

•LOS 

OPZC 

c* 

CLAP. 

•LOS 

OP30 

c* 

•LOS 

OZAO 

c» 

GENERAL  NOTATION  SCHEME 

•LDS 

OZSO 

c« 

•LOS 

0260 

c» 

VARIABLES  ARE  DEFINED  AS  FOLLOWS) 

•LOS 

OZTO 

c» 

•LOS 

OZSO 

c« 

A  1  AREA  PER  KMOLE/S  OE  PRIMARY  FLOW  (S-M2/KMOLE) 

•LOS 

OZSO 

c* 

0  1  OIAMETER  (Ml 

•LOS 

0300 

c* 

•  1  (AAMNA)  SPECIFIC  HEAT  RATIO 

•LOS 

0310 

c* 

M  1  MACH  NUMBER 

•LOS 

03Z0 

c* 

MW  1  MOLECULAR  WEIGHT  (KG/KMOlE) 

•LDS 

0330 

c* 

P  1  PRESSURE  (PA) 

•LDS 

030 

c» 

R  1  DENSITY  IKG/M3) 

•LOS 

0350 

c« 

RE  1  REYNOLDS  NUMBER 

•LOS 

0360 

c» 

T  1  TEMPERATURF  IK) 

•LOS 

03TC 

c* 

W  l  MASS  FLOW  RATE  (KO/S) 

•LDS 

0380 

c* 

X  1  MOLAR  FLOW  RATE  IKMOLE/S) 

•LOS 

03S0 

e* 

•LOS 

0400 

c* 

REPEATED  LETTERS  INDICATE  RATIOS. 

•LOS 

0410 

c* 

EXAMPLE)  W6W2-W6/W2 

•LOS 

OAZO 

c« 

•LOS 

OASO 

c« 

VARIABLES  ARE  DESIGNATED  AS  TO  LOCATION  BY  THE  FOLLOWING) 

•LOS 

OAAO 

c* 

•LOS 

0450 

c* 

POINT  ))  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NQEZLC 

•LOS 

0460 

c» 

STAGNATION  (COMBUSTOR)  TEMPERATURE 

•LOS 

04T0 

r* 

POINT  P)  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE 

•LOS 

0680 

c« 

EXIT  TEMPERATURE 

•LDS 

04S0 

c» 

POINT  3)  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE 

NOZZLE 

•LOS 

OSOO 

c* 

STA8NATI0N  (COMBUSTOR)  TEMPERATURE 

•LOS 

0510 

c* 

POINT  At  SECONDARY  NOZZLE  EXtT  -  CONDITIONS  RASFO  ON  TME 

NOZZLE 

•LOS 

0520 

c* 

EXIT  TEMPERATURE 

•LOS 

0530 

c» 

POINT  B)  EXIT  OE  TME  CONSTANT-AREA  MIXING  REOION 

•LDS 

0540 

c* 

POINT  ft)  EXIT  OE  THE  IStNTPOPIC  EXPANSION  RCBION 

•LOS 

0550 

c* 

POINT  71  MIRROR  PUR6E  CONDITIONS 

•LDS 

0560 

c* 

POINT  at  IASFR  CAVITY  EXIT 

•LOS 

05T0 

c« 

EXAMH.FI  MWB  «  MOLECULAR  WEIGHT  AT  THE  CAVITY  EXIT 

•LOS 

05R0 

c« 

•LOS 

05S0 

c« 

El  INDICATES  “EFFECTIVE**  CONDITIONS 

•LOS 

0600 

c*» 

«l  INDICATES  “GEOMETRIC**  CONDITIONS 

•LOS 

otto 

c« 

St  INOICATES  "•••  CONDITIONS 

•LDS 

06Z0 

c» 

Ol  INDICATES  STAGNATION  CONDITIONS 

•LDS 

0630 

c* 

EXAMPLE)  A) AISO  ■  A/A*  AT  THF  PRIMARY  NOZZLE  EXIT  RASED  ON  TME 

•LOS 

0640 
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APPrNOI*  c 

M06M*  LOS 


CNfMICAL  LASr*  ANALYSIS  PftOOftAM  (CLAP) 
OVFPLAY  LOS 


PA®t  C-  t 


AMFNDIX  C 
PROGRAM  IDS 


CHEMICAL  LASER  ANALYSIS  PROGRAM  tCLAR) 
OVERLAY  CDS 


HU  C-  3 


rorm  to. M.aToTM^o, mi**  <1.0/ to-won 
PHO tR.T.MH J aP*MH/ tR8AP*T ) 
HMtG.M)aM*St»RT <O*T0TM(O,M) ) 


INITIALIZE  V API  ARLES  FOR  MULTIPLE  RUNS  AND  READ  INPUT  OATA 


CALL  IN^OS 

IFICCSS1.EO.TES)  LDSSl-VES 
IFILDSSI.EO.NO)  00  TO  105 
FL0M*5UP 


LASER  PRIMARY  NOZZLE  CALCULATIONS 


CALL  LPNCS(01«D1S.D3,«EOMPN,OEOM$N.HNO.LOSSZ.LPNOZ,NSPNOZ.PKFRAC. 

.P10.T10 ,M AISE. AI A1S0. A1 . AZ.AA.FAIL.Oi .OZ.MI ,MHl .NPNOZ.Pl .RE1 .Tl, 
IFlFAIl-.EO.rES)  00  TO  100 
RlaRH0tPl.Tl.M41) 

RlOaRHO(PlO.TlO.MHl) 

MZaMl 

HHZaMHl 

PZaPl 

PZO«P10 

TZaTl 

TZ0-T10 

PZaRl 

RZ0-R10 


’  *LDS 

laser  secondary  nozzle  CALCULATIONS  PLOS 

el.......... . * . . 

c  LDS 


IFt03.NE.03S)  CALL  LSNCS1 tD3.03S,8E0MSN,HN».LSNOZ,NPN0Z,NSPMDZ. 

-T30.A3A3SE.A3A3SO.A3.AA.FAIL.S3.OA.M3.NH3.NSNOZ.P3.P30.RE3.T3. 

-X3X11 

IF<03!«o!o3s'SCALL  LSNC5Zt03.D3S.OEOMSN.MNB,LSNOZ,NRNOf .N3PN0Z. 
-T30. A3A3SE.A3A3S0. A3.AA.FAIL.O3.OA.M3.MH3.NSNOZ.P3.P-0.RE3.TS. 

•X3XII 

IFtFAIL.ro. YES)  00  TO  10A 


1?00 
1*30 
1ZZ0 
1Z30 
l  ZAO 
1ZS0 
1ZOO 
IZTO 

l  zoo 
izso 

1300 
1310 
13Z0 
133* 
1340 
1350 
1300 
13T0 
1300 
13*0 
1 AOO 
1A10 
IAZO 
1A30 
1440 
14S0 
1460 
1AT0 
14A0 
1400 
)SJO 
1510 
15Z0 
1530 
1540 
1550 
1560 
15T0 
1500 
1590 
1600 
1610 
16Z0 
1630 
1660 
1650 
1660 
1670 
1600 
»690 
1700 
1710 
ITZO 
1730 
1T40 


APPENDIX  r  CMENICAL  LASfP  ANALYSIS  P»0**AN  <CLAP» 

ppoopan  cos  ovm*Y  LOS 

*ASE 

C-  A 

P3bPHO<P3.T3«NN3> 

LOS 

its« 

P30»**O(P30#T30.n* 3; 

LOS 

1760 

*3*1«X3X1»HNS/*W1 

LOS 

im 

N4a*3 

LOS 

1700 

LOS 

|T9ft 

P4eP3 

LOS 

1080 

PAOaPJO 

LOS 

l»ie 

T»bT3 

LOS 

1**0 

TaObTSO 

LOS 

JP30 

*♦■*3 

LOS 

1*40 

RAOaPIO 

LOS 

i«so 

W4HF>W3W) 

LOS 

1*60 

UKMIIJI1 

LOS 

iaro 

C 

LOS 

1**0 

c 

LOS 

1**0 

Ctt94 

‘••LOS 

1*00 

c* 

•LOS 

1*10 

c« 

CONSTANT-AREA  NIXIW3  CALCULATIONS 

•LOS 

i**o 

c« 

•LOS 

1*30 

C*»*i 

•••LOS 

1*40 

c 

LOS 

1*90 

e 

LOS 

1*60 

44ap«a«/a  p 

LOS 

1*T0 

MW*MN*aNW*/MN* 

LOS 

1**0 

P4P?aP4/P* 

LOS 

1**0 

taotpobtao/tpo 

LOS 

*000 

call  CANS  CAAA?fEL0N«fi?i,6**N?*N*,MNANII?tt*AR? •T40T?0»PAILt05*M5» 

LOS 

POl  0 

-NNSMN*.P9P*«T90TP0> 

LOS 

POP3 

iP<p*iL.ro.vesi  «o  to  i*« 

LOS 

P030 

A$aA*«A4 

LOS 

P040 

N*9aNW9NVpaMN* 

LOS 

*090 

P5aP*P*»P? 

LOS 

*060 

P5TaP0PN(«5.N5*,*P« 

LOS 

P070 

T50aTSflTi5*TI0 

LOS 

poeo 

T5»T50/T0TN<OS,N5)  | 

LOS 

to*o 

RSaRMO  (M  *  f  5»N(t5! 

LOS 

*100 

SSOfYHO {PSOfTHOfNTS/ 

COS 

(110 

*8Kf»l,8»XA«E 

LOS 

*1*0 

WNMfal.ntWAMX 

LOS 

PI  30 

c 

LOS 

*140 

c 

LOS 

(ISO 

c**«< 

•••LOS 

*1*0 

c» 

•LOS 

*170 

e • 

ISENTPOPIC  EXPANSION  CALCULATIONS 

•LOS 

*1*0 

c« 

•LOS 

*1*0 

**00 

c 

LOS 

**to 

c 

LOS 

tiro 

A6«A6/eftPNAC 

LOS 

**30 

A6AS*A6>49 

LM 

**40 

C*iLL  EXPANIOS.MS.AAAS.NO. POPS. P&0P50 .TOTS, TAOfSO. PAIL  1 

LOS 

**90 

iPifAiL.ee. ves)  «o  to  no 

LOS 

**60 

*»•« 

LOS 

*PTO 

NN«aNW9 

LOS 

(**0 

P6*P*PS«P9 

LOS 

***0 
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APPENDIX  C 
PROORAN  LOS 


CHEMICAL  LASER  ANALYSIS  PROORAM  (CL AM) 
OVERLAY  LOS 


RASE  C-  S 


P66aP*0P50*P50  LOS 

T*eT*T5*T5  LOS 

T*OaT*0T5O»TSO  LOS 

R6aRH0(P6,T«,MN6|  LOS 

R60>RHO(P60«T60«MW6)  LOS 

LOS 

W6N2»M5N2  LOS 

C  LOS 

C  LOS 

^•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••(••••••••••LDS 

C«  *LOS 

C*  LASER  CAVITY  CALCULATIONS  *LDS 

C*  *LOS 

. . •••••••••••••••••••••••••••••••••••••••LOS 

C  LOS 

C  LOS 

A*aA6* d . 0*2.0*LCAV»TAN (CANOLE ) /HOASE )  LOS 

XF(l)cKPCRKl)  LOS 

XF (?) •O.O  LOS 

XF(3>«0.0  LOS 

XFlAIBXFCREtll  LOS 

XF(S)«XFCR3(1)  LOS 

XF(M«XFCP4(1)  LOS 

XF (Tl bXFCPS ( 1 1  LOS 

XF(S)>g,0  LOS 

XF (SI *0*0  LOS 

IF(DFOPNF.EQ.HF>  00  TO  101  LOS 

XF()0>«XFCP6(1)  LOS 

XFdll.O.O  LOS 

00  TO  102  LOS 

ioi  XFdOlaQ.O  LOS 

XF(lI)aXFCP6(l)  LOS 

192  TPaO* 1*5-1. 0>/(05*RBAR*XSX2),T5  LOS 

CALL  CPCALCd.il, TP, XF, OP, MNP)  LOS 

XF(T)»I,0  LOS 

CALL  CPCALC(T,7,TT0,XF,0T,MNT)  LOS 

A*A4aA0/A6  LOS 

MNPHN6aMWP/MN6  LOS 

MNTMNAaMWT/MW6  LOS 

OORaQ*  (06-1.0) /(T««C6*R8AR*X6X2)  LOS 

TT0T6aTT0/T6  LOS 

N7N6aNTN?/N6N?  LOS 

CALL  LCAS(A8A6,OT,SP,06,MNTMM6,MNPMN6,MS,M6,P6PS,OAR.TTOT6,WTN»,  LOS 
•FLON,OS,MMONM6,MO,P8P6,POOP60,T8T6,TOUT60,XOX«,LSLCAV)  LOS 

IF (FLOM.EQ. CHOKE*  80  TO  1  OS  LOS 

MN*aMN0MW6«MM6  LOS 

P*aP0P6»P6  LOS 

P8(*aP*0R*0«P60  LOS 

T*aT*T6*T*  LOS 

T*0aT«0T*9*T60  LOS 

RAsRHO (PO.TO.MNB)  LOS 

R*6bRHO(P*0,T*0,MN*)  LOS 

XAX2"X*X6«X*X2  LOS 

M0N?aX0X?*MNS/MN2  LOS 

LSEP»LSLCAV*LCAV  LOS 


MtO 

1310 

mo 

1330 

2340 

2350 

2340 

23T0 

.300 

2300 

2400 

2410 

2420 

2430 

2440 

24S0 

2400 

24T0 

2400 

24*0 

2S00 

2S10 

2S20 

2530 

2540 

2SS0 

2560 

2570 

2500 

25*0 

2*00 

2*10 

2*20 

2*30 

2*40 

2*50 

2**0 

2*70 

2*00 

2**0 

2700 

2T10 

2720 

2730 

2740 

2T50 

2760 

2770 

2TOO 

27*0 

2*00 

2010 

2*20 

2*30 

2*40 
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APPFNOIX  C  CHEMICAL  LASER  ANALYSIS  RRORRAM  (CUR) 

PROGRAM  LOS  OVERLAY  LOS 

RA6E 

C-  6 

XF(1>>XFCP1(2) 

LOS 

2666 

XF  (4UXFCP212I 

LOS 

JR66 

AF(51«*rCR3«21 

LOS 

JRTO 

xr (6)mfcp4<j> 

LOS 

JS60 

xfitimfcpoui 

LOS 

2660 

IF (OrORMf.EO.MFl  00  TO  103 

LOS 

2600 

XF ( 10) «XFCP6(2) 

LOS 

2610 

60  TO  )04 

LOS 

2620 

103 

XF  till bXFCFO (2) 

LOS 

2630 

104 

CALL  VISCU.U.XF.A.B) 

LOS 

2640 

RE6mR6«M6»SORT(«§»RBAR»T8/MHO)«(NBASE*2.0»LCAV*TAN(CANSLE> )/ 

LOS 

2660 

-EXP(A*AL06(T6I*B) 

LOS 

2660 

C 

LOS 

2670 

C 

LOS 

2660 

C««« 

2660 

C« 

•LOS 

3000 

C4 

OUTPUT  RESULTS 

•LOS 

3010 

C* 

•LOS 

3020 

C«H 

3030 

c 

LOS 

3040 

c 

LOS 

3060 

HRITF (0(200) (T10,P10.K«l,10) 

LOS 

3060 

105 

CALL  OUTLOS 

LOS 

3070 

00  TO  fOT 

LOS 

3060 

c 

LOS 

3060 

C 

LOS 

3100 

C*«i 

3110 

c* 

•LOS 

3120 

c« 

FAILURE  INDICATORS 

•LOS 

3130 

c* 

•LOS 

3140 

c*»* 

3160 

c 

LOS 

3160 

c 

LOS 

3170 

io« 

HRITE (6*201 ) 

LOS 

3160 

60  TO  JOT 

LOS 

3160 

107 

HRITE (6*?0?) 

LOS 

3200 

100 

HRITE (6*203) 

LOS 

3210 

60  TO  JOT 

LOS 

3220 

ioo 

HRITE (0*204) 

LOS 

3230 

fail-yes 

LOS 

3240 

60  TO  207 

LOS 

3260 

no 

HRITE (0*206) 

LOS 

3260 

c 

LOS 

3270 

c 

LOS 

3260 

C*** 

3260 

c* 

•LOS 

3300 

C4 

FORMAT  STATEMENTS 

•LOS 

3310 

c* 

•LDS 

3320 

c§«» 

3330 

c 

LOS 

3340 

c 

LOS 

3360 

201 

FORMAT(*0*«T2, •SUBROUTINE  LPNCS  HAS  CALLED  FROM  SUBROUTINE  LOS*)  LOS 

3360 

202 

FORMAT (•0*.TJ.*SUBROUTINF  LSNCS1  HAS  CALLED  FROM  SUBROUTINE 

LOS*)  LOS 

3370 

203 

FORMAT(*0»*T2*»SUBROjTINE  ISNCS2  HAS  CALLED  FROM  SUBROUTINE 

LDS*)  LOS 

3360 

204 

FORMAT (*0«.TJ. •FAILURE  IN  SUBROUTINE  CAMS  AS  CALLED  FROM  SURROUTINLOS 

3360 
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' At.  :■__  v  i  !*SL*4kSS2^2kito 


CHEMICAL  LASER  ANALYSIS  RROORAM  (CLAM) 
OVERLAY  LOS 


PARE  C-  T 


ARRENOIX  C 
RR06RAM  LOS 


-f  LOS*)  LOS  3400 
EOS  FORMAT |*0*«TE.*SURROUt INF  EXMAN  MAS  CALLED  FROM  SUBROUTINE  LOS*)  LOS  3*10 
FOB  FORMAT (*l*t 10 (TR**NOTF I  T)0  ■*.F13.A,*  K  RIO  ■•*F13.0»*  RA*,/))  LOS  34t0 
ROT  END  LOS  3430 
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APPFNDlX  C 
SUBROUTINE  CAMS 


CHEMICAL  LASER  ANALYSIS  PROBRAM  (CLAP) 
OVERLAY  LOS 


BABE  C-  • 


SUBROUTINE  CAMSlASUPl.FLOV.OP.OS.MPl.MSl.MwSNWP.PSiPPl.TSnTPfl. 

CAMS 

0100 

-FAIL. OM, MM3, NVMMnp.PMSPPI.TNOTPO) 

CAMS 

0110 

c 

CAMS 

01E0 

c 

CAMS 

0130 

c»< 

’•CANS 

0140 

c» 

•CAMS 

else 

c* 

CONSTANT-ARFA  M1XIN0  SUBROUTINE 

(CAMS* 

•CAMS 

DUO 

c» 

•CAMS 

0170 

c*< 

►•CAMS 

0100 

c 

CAMS 

01*0 

c*< 

►•CAMS 

0*00 

c* 

•CAMS 

OPIO 

c« 

SUBROUTINE  CAMS  PERFORMS  THE  CONSTANT-AREA, 

ADIABATIC.  MIXING 

•CAMS 

0**0 

c« 

CALCULATIONS  BY  ONE-OIMENSIONAL  ANALYSIS  FOR  TMO 

UNIFORM  STREAMS  AT 

•CAMS 

0*30 

c» 

INLET 

STATION  (1)  MI X I NO  TO  A  UNIFORM  STREAM  AT 

MIXED  STATION  (3>. 

•CAMS 

0*40 

c* 

•CAMS 

0*SQ 

c» 

INPUT 

variablesi 

•CAMS 

0*00 

c* 

•CAMS 

0*70 

c* 

ASIAP1 

a  SECONDAPY-TO-PRIMARY  STREAM  AREA  RATIO 

•CAMS 

0*00 

c» 

FLOW 

a  CONTROL  VARIABLE  SUCH  THAT  1 

•CAMS 

0**0 

c« 

■  "SUB"  FOR  THE  SUBSONIC  SOLUTION 

•CAMS 

0300 

c* 

•  "SUP"  FOR  THE  SUPERSONIC  SOLUTION 

•CAMS 

0310 

c* 

OP 

■  PRIMARY  STREAM  GAMMA 

•CAMS 

03*0 

c» 

OS 

■  SECONDARY  STREAM  OAMMA 

•CAMS 

0330 

c« 

MPI 

a  PRIMARY  STREAM  MACH  NO. 

•CAMS 

0340 

c* 

MSI 

a  SECONDARY  STREAM  MACH  NO. 

•CAMS 

03S0 

c* 

MMSMMP 

a  SECONDARY -TO-PR I M AR Y  STREAM  MOLECULAR  WEIBHT  RATIO 

•CAMS 

03*0 

c» 

PS1PP1 

a  SFCONDARY-TO-PRINARY  STREAM  STATIC  PRFSSURE  RATIO 

•CAMS 

0370 

c« 

TSOTPO 

a  SECONOARY-TO-PRIMARY  stream  staonation  temperature  RATIO 

•CAMS 

0300 

c« 

•CAMS 

03*0 

c* 

OUTPUT 

VARIABLESi 

•CAMS 

0400 

c* 

•CAMS 

0410 

c» 

FAIL 

a  ERROR  flag 

•CAMS 

04*0 

c* 

OM 

a  mixed  stream  oamra 

•CAMS 

0430 

c* 

MM3 

a  MIXED  STREAM  MACH  NO, 

•CAMS 

0440 

c* 

MMMMMP 

a  MIXED-TO-PRIMARY  STREAM  MOLECULAR  VEIBM1 

RATIO 

•CAMS 

0430 

c* 

PM3PPI 

a  MIXED-TO-PRIMARY  STREAM  STATIC  PRESSURE 

RATIO 

•CAMS 

0400 

c« 

TMOTPO 

a  MIXED-TO-PRIMARY  STREAM  STAGNATION  TEMPERATURE  RATIO 

•CAMS 

0470 

c* 

•CAMS 

0400 

c*t 

►•CAMS 

04*0 

c 

CAMS 

0300 

c 

CAMS 

0S10 

IMPLICIT  REAL (M) 

CAMS 

05*0 

OAT*  SUP/3HSUP/. YES/3HYES/ 

CAMS 

0330 

c 

CAMS 

0340 

c 

CAMS 

0330 

c»« 

'•CAMS 

0360 

c« 

•CAMS 

0570 

c» 

SPECIAL  FUNCTIONS 

•CAMS 

0500 

c* 

•CAMS 

03*0 

C*« 

►•CAMS 

0600 

c 

CAMS 

0010 

c 

CAMS 

00*0 

F 10 

*M) al ,0*0*M*M 

CAMS 

0030 

(MR 

,MlaM*SORT(1.0»0.3»(®-1.0>*N«r> 

CAMS 

0040 
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APPENDIX  c 
SUBROUTINE  CAMS 


CHEMICAL  IASCA  ANALYSIS  PNftRRAN  ( CL  AM  J 
OVERLAY  LOS 


MAM  C-  * 


M  (MM.TT.46) aSQRT  <MM*80/TT) 

CAMS 

ooso 

c 

CAMS 

0640 

c 

CAMS 

OOTO 

C*A*< 

'••CANS 

0400 

c« 

ACAMS 

00*0 

C« 

CALCULATE  CONSTANTS 

•CAMS 

OTOO 

c» 

•CAMS 

071® 

C>M< 

> • AC AMS 

OTtO 

c 

CAMS 

0730 

c 

CAMS 

0740 

OSsaOS/ (4S*1 . 0 ) 

CAMS 

0740 

4P3«4P/(4P-1.0) 

CAMS 

0700 

0S6P-0S16P 

CAMS 

OTTO 

NNPMMSa) . O/MNSMVP 

CAMS 

0700 

c 

CAMS 

0700 

c 

CAMS 

OBQO 

'••CAMS 

0410 

c« 

•CAMS 

04*0 

c« 

OVERALL  CONTROL  VOLUME  CALCULATIONS 

•CAMS 

0430 

c« 

•CAMS 

0440 

c*** 

'••CAMS 

0490 

c 

CAMS 

0460 

c 

CAMS 

0470 

W$VPaPsiPPl«ASlAPl*H(MMSNVPtTSOTP0.6S9P)*6(6S.MSl>/6(OP.MPl) 

CAMS 

0440 

ClaPSWP«MNPMNS»0S3«4P3 

CAMS 

0400 

C?aNSMP»MWPMHSA (0S3-1 .0) ♦ (OP 3-1 . 0 ) 

CAMS 

0*00 

0M.C1/C? 

CAMS 

0910 

OMSPaOM/dP 

CAMS 

09*0 

NWMMWPa (WSVP* 1 . 0 ) / ( VSVP •MNPMWS*  1.0) 

CAMS 

0930 

C1«TSOTPO*NSVP*MVPMNS*4S3*6P3 

CAMS 

0940 

C*aNStfP«MWPMWS*6S3*6P3 

CAMS 

0990 

TMOTPOaCl/CE 

CAMS 

0940 

FPXaH  (  MVMMMP . TMOTPO « OM«P ) • ( PS 1 PP 1 AAS 1 AP 1 «F | OS i MS 1 ) «F ( OP » MP1 ) ) / 

CANS 

0970 

-( (l,0*VSMP>*0«OP.MPll) 

CAMS 

0940 

ClaO.S*(6N-1.0>»FFX*FFX-9N«9M 

CANS 

0990 

C*bFFX«FFX-*.0*6M 

CAMS 

1000 

C3a|-C*»SORT(C**C?«4,d*Ci)l/<*.0»Ci> 

CANS 

1010 

C«a < -CE-SQRT <C*«C*.  4 . 0«C l )) / <  *,0«C 1 > 

CAMS 

10*0 

c 

CAMS 

1030 

c 

CAMS 

1040 

c**« 

•••CAMS 

1090 

c* 

•CAMS 

1060 

CA 

IDENTIFY  THE  SUBSONIC  AND  SUPERSONIC  SOLUTIONS 

•CAMS 

1070 

CA 

•CAMS 

1040 

•••CAMS 

J090 

c 

CAMS 

1100 

c 

CAMS 

1110 

IF(FLON.EO.SUP)  00  70  101 

CAMS 

11*0 

IF(C3.LT.O.O»OR.C4.LT.O.OI  MMSaSOPT (AMAX1 (C3.C4) ) 

CANS 

1130 

IF(C3.9F,O.O.AND,C4.«E.O.O>  MMSaSORT (AMINl (C3,C4>> 

CAMS 

11*0 

00  TO  10* 

CAMS 

1190 

101 

IF (C3.LT. 0.0. 0R.C4.LT. 0.0)  00  TO  103 

CAMS 

1160 

MMJaSORT (AMAXl (CS.C4) ) 

CAMS 

1170 

10* 

PM3PP1a(PSIPP1aAS1AP1aF(0S.MS1)*F(0P,MP1))/( (1.0*ASiAPl)A 

CANS 

1160 

-F (ON. MM3) ) 

CAMS 

1190 
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ARRfNOI*  r  CHEMICAL  LASER  ANALYSIS  MORRAM  (CLAP) 


SUOROUTtNF  CAMS 

OVERLAY  LOS 

RASE 

c-to 

At TURN 

CAMS 

1000 

C 

CAMS 

tilt 

C 

CAMS 

im 

C*M 

itit 

C« 

•CAMS 

ISAS 

C« 

fAILURl 

indicators 

•CAMS 

l*S0 

C* 

•CAMS 

i  m 

c»»* 

••••••CANS 

1»T« 

c 

CAMS 

IMS 

c 

CANS 

io»o 

103 

•RiTe«s,»«nMsi,Mi»i 

CAMS 

1300 

FAIL»VrS 

CANS 

1310 

Ml 

FORMAT J*J*,TOt*NO  SURFRSONIC 

SOLUTION  CHIT?  fOR»./,T*.*MSI 

••»  CANS 

1300 

-C13.*.I>K.«MPI  ••.tlS.OI 

CANS 

1330 

CNO 

CAMS 

I3A0 
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APPENDIX  r 
subbout  inf  cpcalc 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLaBI 
OVERLAY  LOS 


RAOE  C-ll 


SURROUTINF  CPCALC (NSl .NSP,T0f.XF»6MIX,MHMIX>  CPCALC  0100 

r  CRCALC  0110 

C  CRCALC  01F0 

Cppppppppp**ppp*.*ppp**p*p*pp*.pppppppppppp«pppp*pppppppppppppppppppppppcPCALC  0130 
C*  »CPCALC  0140 

C*  SPECIFIC  HfAT  CALCULATION  SURROUTINF  (CPCALC)  PCRCALC  01S0 

C«  *CRCALC  0160 

r***MO*»MlttMt*M*«»lt»M««MtM*M*tt**M«*M*titMtM*(*tt«((*MMCFCALC  01  TO 
C  CRCALC  0100 
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NAMELlST/NLL0S/BRPRACtCAN8LE.01.DlS.D3*D3S*HBASE.HNR.LCAV»LPN0Z» 

-LSNO?.NSPNO7.P«P«AC.P10.T10,T30.TT0 


SET  OtrAULT  values 


IP (SfTLQS.EO.NO)  00  TO  101 
BRPRAC-1.9 

CAN9LE-0.1TA533 

01»1,TT800E-03 

niS«6.O?S3*E-0S 

O3«l.3Tl*0E-03 

O3S«*.RM0OF-0S 

8E0MPN«*M*P 

SEOMSN«*H*D 

HBA8E»3.***S0E-0? 

MNR»3.*«»**0E-0* 

LCAV«T.6*900E-0* 

L05SP-3MP10 

LPN0Z«e,S01*0E-03 

LSNOZ"lt8Sl**E-03 

NSPNOZa) .038** 

PKER AC ■0.803*31 

PIO»I.**)09E*0* 

T10«1.*E100C*03 

TIOwBOO.O 

TT0-300.0 

SETLOSmNO 


CONTROL  STATEMENTS 


WRITE!*, *011 
REAO<S,fO*)LOSSl 
IP(LOSSl.CO.NO)  RETURN 
WRITE (A, 703) 


INLOS  0*80 
INLOS  0**0 
INLOS  04T0 
IN'.  OS  0*80 
INLOS  0**0 
HL08  OTOO 
INLOS  OTIO 
INLOS  ono 
I YLOS  0T3C 
INLP*  OT*0 
INLOS  OTSO 
INLOS  0T*0 
INLOS  OTTO 
•INLOS  OTRO 
•INLOS  OTOO 
•INLOS  0800 
•INLOS  0010 
^INLOS  0810 
INLOS  0030 
INLOS  00*0 
INLOS  0890 
INLOS  00*0 
INLOS  OOTO 
INLOS  0000 
INLOS  0000 
INLOS  0*00 
INLOS  0010 
INLOS  00*0 
INLOS  0030 
INLOS  00*0 
INLOS  OOSO 
INLOS  00*0 
INLOS  OOTO 
INLOS  0080 
INLOS  0000 
IMLOS  1000 
INI  OS  1010 
INLOS  10*0 
INLOS  1030 
INLOS  10*0 
INLOS  1090 
INLOS  1060 
INLOS  1 OTO 
INLOS  1080 
••INLOS  10*0 
•INLOS  1100 
•INLOS  Hit 
•INLOS  11*0 
••INLOS  1130 
INLOS  11*0 
INLOS  1190 
INLOS  11*0 
INLOS  11  TO 
INLDS  1180 
INLOS  1»*0 
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APPENDIX  C 

subroutine  im  os 


CHEMICAL  LASER  ANALYSIS  RRORRAM  (CLAP) 
OVERLAY  LOS 


RASE 


•CAD (5.P0PILOSS3 
IEU.OSS3.CO.NO)  00  TO  10? 

rewind  * 

READ (P iBRFRAC .CANOLC.Ol  .01S.D3»OSS.O£ONPN*OCOMSN*HRASC«  MNB.LCAV •; 
-LOSS2.LPNOI,LSNOr,NSPNOZ.PYEP*C.R10.TlO.T30tTTO 
RETURN 

10*  WRITE (6.PC4) 

RCAOtS.POSlBEOMRN 
WRITE  (6«PQf ) 

RCAO<9,POS)«C0NSN 
WRITE <6. POT) 

READ  IS*  t^O?)  LOSS? 

WRITE («, 306! 

iro.OSS?.EC.3MP10)  WRITC<6,POO>SRFAAC.CANOLF,OIrDlS.03.D3S.HBA*C» 
-HNR.LCAVAPNOZ.LSNOZ.NSPNOZ.PPERAC.P10fT30.T70 
IEtLOSSSr.E0.3HTm  WRITF  (6. ?1 0) BRERAC.CAN0LE.01  .018 .03.03S.HBASE, 
-NNR.LCAV .LPNOZ.LSNOZ.NSPNOZ.PKERAC.T 1C .ESO. 770 
RCABtS.NLLOSt 
NEW  I NO  f 

WHITE (PiBRERAC.CANSLE .01. 01S.03.03S»SEOHPN.«>EOH3N.HRASE.HNB,LCAV. 

-LOSSPclRNOZ.LSNOZ .NSPNoS.PKEfAC.PlC.T i0.T30.TT0 
C 
C 

C*M 

c* 
e* 
c* 

CfM 

c 
c 

?01 
*0? 

?t)3 

row 


FOPMAT  STATEHENTS 


INLDS 
INLDS 
INLOS 
INLOS 
INLOS 
INLOS 
INLOS 
INLDS 
INLOS 
INLOS 
INLOS 
INLOS 
INLOS 
INLOS 
INLOS 
INI.  05 
INLOS 
I  ML  OS 
INLOS 
INLOS 
INLOS 
INLOS 
tNLOS 
••INLOS 
•INLOS 
•INLDS 
•INLOS 


•INLOS 
INLOS 
INLOS 

FORMAT (•!*, 72. •ARE  NEW  LASER  DEVICE  INPUTS  SCOJIREDT*./»  INLOS 

FORMAT (A3)  INLOS 

FORMAT (*p*. TP. "SHOULD  INPUT  OATA  BE  RE AO  FROM  TAPE*?*./)  INLOS 

FORMAT (•! •.T2.MNPUT  THE  LASER  PRIMARY  NOZZLE  GEOMETRY  TROM  THE  FR INLDS 
-LLOWKNA  LIST !••//, T2.*«AX»  FOR  AXISYMMETRIC  NOZZLES*. /.T2.*"2D"  FOINLDS 
-R  SHT  NOZZLES*./)  INLOS 

20S  FORMAT (A2)  INLOS 

2 Of  FORMAT (*0*. TP. * INPUT  THE  LASER  SECONDARY  NOZZLE  BEOMETRT  FROM  TM£  INLOS 

-FOLLOWING  LIST!*,/'»T2,*"AX"  FOR  AXISTMMFTRIC  NOZZLES* »/»TP»*"PD"  INLOS 
-FOR  SLIT  NOZZLES*./)  INLOS 

?0T  FORMAT (*l*«TP»*tELCCT  A  LASER  DEVICE  INPUT  VARIABLE  FROM  THE  FOLLOINLDS 

-NINO  LIST  t*.//»TP.*"Pl 0"  FOR  THE  PRINART  COMBUSTOR  OR  NOZZLE  STAONINLDS 
—  AT ION  PRESSURE*. /,T?,*"T10"  for  THE  PRIMARY  COMBUSTOR  or  nozzle  STTNLOS 

-AONATION  TEMPERATURE*./)  INLOS 

POP  FORMAT (*1*,TP»*INPUT  OATA  FOR  THE  LASER  DEVICE  SECTION  BY  NAMELIST INLOS 

-.*./.T?.*CURRCNT  VALUES  ARC!*)  INLOS 

200  FORMAT!*  *,TP.*SNLLOS*,T?f .*BRFRAC  **»El 3.6.T50*»CANOLE  ■*.  INLDS 

-ElS.f ./.T2,*01  **«E13.f*T26,*DlS  »*,t 1 3. A ,T50 •  INLOS 

-•03  ■•.E13.6,/.TP»*03S  »*.C13.6»T?6.*HBA5F  ••♦E13.6.  INLDS 

-T50^*HNB  **.C13.6./.TP.*LCAV  »*.C 1 3 .6.T26. *LPN0Z  •*,  INLOS 

-C13.6»T50**LSNOZ  •••Ell.t , /,T?,*NSPNOZ  ■•.E13.6.TP6.  INLOS 

-•PWFRAC  **,El3.f »TS0.*RI0  ■••E13.6 ./»T2,*T30  ••.C13.4*  INLOS 

-TPf « *TT0  •*.E13.6»*  $•»/)  INLOS 

P10  FORMAT (•  **T?**SNLL0S*.T?6**BRFRAC  ■*»El3.6*T50**CANOLE  ■•,  INLOS 

-C13.f./«T?.*D1  ■*.E13.6.T26.*D1S  ■•.FI  3.6 . TSO .  INLOS 


e-iB 


I  POO 
)PIO 
I  2P0 
1P30 
1 PAO 
IPSO 
1  ?60 
1 P70 
IPSO 
JP60 
)300 
1310 
1 3P0 
1330 
1340 
1350 
1360 
I3T0 
1360 
1300 
1400 
1410 
14P0 
1430 
1440 
14S0 
1460 
14T0 
1460 
1440 
1S00 
IS10 
1*1*0 
1530 
1540 
1550 
1560 
15T0 
1560 
1560 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
16T0 
1600 
1640 
1T00 
1T10 
1  T?0 
1T30 
1740 
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APPENDIX  C  CHEMICAL  LASER  ANALYSIS  PROGRAM  ICLAP) 

SUBROUTINE  1NLOS  OVERLAY  LOS  PAGE 


-•OS  **,E13.6,/,T?,«03S  ■*tEI3.6,T?6««HBASr  -••E13.6.  1NL0S 

-TSo**HNR  •**Et3.6./,T?,*LCAV  ■• »El 3,6 tT26«*LPN02  INLDS 

-El3.6tT50**LSN02  »«»El 3,6. /,T?,«NSPNOZ  ■••E13.6.T26.  INL05 

-•PEERAC  ■•.El3.6,TS0.*Tlfl  ■•,E1S,6./.T2.*T30  «»,El3.6«  1NLOS 

-T26.*T7o  «».F13.6.»  $*,/)  INLDS 

ENO  INLOS 
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C-1G 


1750 
1760 
1770 
1760 
1700 
100  0 


APPENDIX  f  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  »TfR  OVERLAY  LOS 

RASE 

© 

1 

o 

SURROUT INF  1  TER ( X , DX • FRRORX , S I ON , Y  «  YOI VEN, ERRORY , N  T  T , 

ITER 

0100 

-NTYPE, XNE8, YNEG, XPOS, YP0S.NSI8N1 , NS TONE) 

ITER 

0110 

C 

ITER 

0120 

c 

ITER 

0130 

C«< 

»•% 

••ITER 

0140 

c* 

•ITER 

01S0 

c* 

ITERATION  SUBROUTINE  (ITFR) 

•  ITER 

01S0 

c« 

•  ITER 

0170 

c*< 

••ITER 

0180 

c 

ITER 

0190 

c»< 

••ITER 

0200 

c» 

•ITER 

0210 

c* 

SUBROUTINE  ITER  PERFORMS  AN  ITERATION  TO  FIND 

X  SUCH  THAT  THE 

•ITER 

0220 

c« 

PERCENT  error  in  Y  AND  YOIVEN  is  ,LE.  to  ERRORY  OR  THE 

PERCENT 

•ITER 

0230 

c* 

DEVIATION  IN  X(t«l)  AND  X(I)  IS  .LE.  TO  ERRORX. 

•ITER 

0240 

c« 

IS  .LE.  TO  ERRORX. 

•ITER 

0250 

c« 

•ITER 

02S0 

c« 

INPUT  VARIABLES  1 

•ITER 

0270 

c* 

•ITER 

0280 

c* 

OX 

•  INCREMENT  IN  independent  variable 

•ITER 

0290 

c« 

ERRORX  ■  MAX  PERCENT  DEVIATION  IN  X(T«!>  AND  X(I) 

FOR  SOLUTION 

•ITER 

0300 

c* 

ERRORY  ■  MAX  PERCENT  ERROR  IN  Y  ANO  YSIVEN  FOR  SOLUTION 

•ITER 

0310 

c* 

SION  ■  *i.n  OR  -1.0,  ♦/•  INCREMENTINB  FROM  INITIAL  X 

•ITER 

0320 

c* 

Y 

■  DEPENDENT  VARIABLE 

•ITER 

0330 

c* 

YOIVEN  ■  RIVEN  VALUE  OF  DEPFNOENT  VARIABLE 

•  ITER 

0340 

c» 

•  ITER 

0390 

c* 

INPUT /OUTPUT  VAR I ABLE Si 

•ITER 

0380 

c* 

•ITER 

0370 

c* 

NIT  ■  ITERATION  NUMBER 

•ITER 

0380 

c» 

NTYPE  ■  1— INCREMENT,  ?— INTERPOLATION,  3— SOLUTION 

•  ITER 

0390 

c* 

X 

»  INDEPENDENT  VARIABLE 

•  ITER 

0400 

c* 

•  ITER 

0410 

c« 

NOTE i  THE  INTERMEDIATE  VARIABLES  XNfO,  YNEB.  XPOS,  VPOS, 

NSIBN1, 

•ITER 

0420 

c* 

NSION?  MUST  BE  STOREO  BETWEEN  ITERATIONS. 

•  ITER 

0430 

c* 

•ITER 

0440 

c*« 

►•ITER 

0450 

c 

ITER 

0480 

c 

ITER 

0470 

ERROR (ACTUAL, SI VEN) ■ (ACTUAL-81 VENI *1 00.0/8IVEN 

ITER 

0480 

c 

ITER 

0490 

IF (ABS (ERROR (Y, YSIVEN) ) -ERRORY)  00,90,10 

ITER 

0900 

10 

IF(Y-YSIVEN)  20,90,30 

ITER 

0910 

20 

NSI8N2—1 

ITER 

0920 

XNES>X 

ITER 

0930 

YNFS-Y 

ITER 

0940 

SO  TO  40 

ITER 

0990 

30 

NSISN2**) 

ITER 

09*0 

XPOSaX 

ITER 

0970 

YPOSmY 

ITER 

0980 

40 

SO  TO  (30,80),  NTYPE 

ITER 

0990 

SO 

IF(NIT-l)  TO, TO, SO 

ITER 

0800 

«0 

NSI8N„NSI8N1 •NSI8N2 

ITER 

0810 

IF(NSISN)  80, 06, TO 

ITER 

0820 

TO 

NSI8NlnNSI8N2 

ITER 

0830 

NITmNIT* J 

ITER 

0840 
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APPENDIX  c 
SUBROUTINE  ITER 


CHEMICAL  LASER  ANALYSIS  PROORAM  iCLAt) 
OVERLAY  LOS 


RA6E  C-El 


c 

ITER 

OOSO 

c 

ITER 

0600 

OOTO 

c* 

•  ITER 

06R0 

e« 

INCRFHFNT  TO  FIND  SOLUTION  INTERVAL 

•  ITER 

0090 

c» 

•  ITER 

OTOO 

0T10 

c 

ITER 

OTEO 

c 

ITER 

OTSO 

X«X»St«N»DX 

ITER 

bTAO 

«o  to  ioo 

ITER 

OTSO 

c 

ITER 

0700 

c 

ITER 

OTTO 

£••••< 

OTOO 

c« 

•  ITER 

0V90 

c« 

INTERPOLATION  FOR  SOLUTION 

•ITER 

oooo 

c* 

•  ITER 

0010 

OSEO 

c 

ITER 

OOSO 

c 

ITER 

00*0 

to 

NTYPE*? 

ITER 

ooso 

nit»nit*i 

ITER 

OOOO 

XSAVE-X 

ITER 

OOTO 

RATIO* <  XPOS-XNEO) / | YPOS-YNEB  > 

ITER 

oooo 

X«XNFB ♦RATIO* ( YCIVrN-YNf 6) 

ITER 

0090 

IF (ABS (ERROR (X, ASA VF ) l-CRRORXt  90.90,100 

ITER 

0900 

90 

NTYPE*S 

ITER 

0910 

100 

END 

ITCR 

09?0 

i 

l. 


i 
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appendix  c 
subroutine  LRLAYR 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 
overlay  LOS 


RARE  (•» 


SUBROUTINE  LBLAYR ( A,6,6C0PAC.LRN0Z.MN,PE , TF.TO* VE, DELTA, RE>  LBLAVR  OHIO 

C  LBLAVR  0110 

C  LRLAYR  OitO 

. . .  0130 

C‘  ‘LBLAYR  out 

C‘  LAMINAR  BOUNDARY  LAVER  SUBROUTINE  (LBLAVR)  ‘LBLAVR  01S0 

C*  ‘LBLAVR  0160 

““““““““““““““““““““““LBLAYR  OITO 
C  LBLAVR  0)60 

“““““““‘““““““““““““““LBLAVR  0100 
C‘  ‘LBLAVR  OtQO 

C‘  SUBROUTINE  LBLAYR  CALCULATES  THE  LAMINAR  BOUNDARY  LAVER  THICKNESS  ‘LBLAVR  OflO 

C‘  AT  THE  EXIT  OF  A  CONICAL  NOZZLE.  ‘LBLAVR  «»0 

C*  ‘LBLAVR  0f30 

C*  INPUT  VARIABLES!  ‘LBLAVR  Of AO 

C‘  ‘LBLAYR  OfSO 

C‘  A  ■  SLOPE  OF  VISCOSITY-TEMPERATURE  RELATION  ‘LBLAVR  OfOO 

C‘  t AL06(N-S/Mf) /AL06 (K ) )  ‘LBLAVR  OtTO 

C‘  B  a  INTERSECT  of  VISCOSITY-TEMPERATURE  RELATION  ( AL06(N-S/Mf) 1  ‘LBLAVR  OfOO 

C‘  BEOFAC  •  $.0*  FOR  f-O.  PLANE  NOZZLES  ‘LBLAVR  OfOO 

C*  ■  1.0,  FOR  AXISVMMETRIC  NOZZLES  ‘LBLAVR  0300 

C‘  LBNOZ  ‘  LENBTM  OF  NOZZLE  BOUNDARY  LAVER  IN}  ‘LBLAVR  0310 

C*  MW  a  MOLECULAR  WEIOHT  IKB/KMOLE)  ‘LBLAVR  Q3fO 

C‘  PE  a  STATIC  PRESSURE  AT  THE  NOZZLE  EXIT  (PA)  ‘LBLAVR  0330 

C‘  TE  a  STATIC  TENPEPATURE  AT  THE  NOZZLE  EXIT  IK1  ‘LBLAYR  0340 

C*  TO  a  NOZZLE  STABNATION  TEMPERATURE  ‘LBLAYR  0350 

C‘  VE  a  VELOCITY  AT  THE  NOZZLE  EXIT  IM/SJ  ‘LBLAVR  0360 

C‘  ‘LBLAYR  03T0 

C‘  OUTPUT  VARIABLES!  ‘LBLAVR  0360 

C*  .  ‘LBLAVR  0300 

C*  DELTA  a  BOUNDARY  LAYER  THICKNESS  (M]  ‘LBLAVR  0400 

C‘  RE  a  REYNOLDS  NUMBER  AT  THE  NOZZLE  EXIT  ‘LBLAYR  0410 

C*  ‘LBLAYR  04Z0 

C*  NOTE!  ALL  CALCULATIONS  ARE  PERFORMED  IN  SI  UNITS.  ‘LBLAVR  0430 

C*  ‘LBLAVR  0440 

C*******““““““**““““““““““““““““““““““““P‘LBLAVR  0450 
C  LRLAYR  0460 

C  .  LBLAVR  04T0 

IMPLICIT  REAL (L*M)  LBLAVR  0460 

DATA  RSAR/6,31434E«03/  LBLAVR  0490 

c  LRLAYR  OSOO 

MUaEXP ( A‘ALCS  <  TE ) *B I  LBLAYR  0510 

TaTE‘0.6‘(O.9‘T0-TE)»0.??‘(T0-TE>  LBLAYR  05fO 

REaPE*VF*LBNOZaMW/(RBARaT‘MU)  LBLAYR  0530 

DELTAaB,Z«LCNOZ/(SQRT(RE)‘U.O*OEOFAC‘O.T3E) )  LBLAYR  0540 

LBLAYR  0550 
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APPENDIX  C  CHEMICAL  LASEP  ANALYSIS  PROGRAM  (CLAP) 

SUBROUTINE  l.CAS  OVERLAY  IDS  PAGE 

SUBROUTINE  .CAS ( A? A  1 ,SA , OP ,GR ,MW AMWP , MwPMWR ,MJ ,M«1 ,PR1PI ,01?,  LCAS 

•TAOTRl .WA2WRI .FLOW  .Gw.MWMMWR  *HM2  »PM2PR1 *RMf)RR0*TM2TRl *  TMOTRO  «  LCAS 

-XM?XR1.7SFP)  LCAS 

C  LCAS 

C  LCAS 

. . ••••*•««•• . . . ••••••••••••••••••••••••••LCAS 

C»  H.CAS 

C*  LASER  CAVITY  ANALYSIS  SUBROUTINE  (LCAS)  «LCAS 

C«  •LCAS 

. . . ••••••*••*•*•••• •••••••••••••••••••••••••LC AS 

C  LCAS 

C*  *LCAS 


C*  SUBROUTINE  LCAS  IS  A  SIMPLiriCD  FLOP  MODEL  TO  ASSESS  QUALITATIVELY  *LCAS 
C*  THE  EFFECTS  OF  AREA  CHANGE*  CHEMICAL  REACTION*  AND  MA$$  ADDITION  ON  *LCAS 
C*  THE  LASER  CAVITY  FLOM.  THE  FLOW  MODEL  IS  RASED  ON  THE  ASSUMPTION  *LCAS 
C*  OF  A  ONE •DIMENSIONAL  FLOW  OF  AN  IDEAL.  HOMOGENEOUS  GAS  THROUGH  A  *LCAS 
C*  CHANNEL  WITH  A  LINEAR  VARIATION  IN  APEA.  A  RATE  OF  RF ACT I ON  SUCH  *LCAS 
C»  THAT  THE  HEAT  RELEASE  IS  LINEAR  WITH  THE  AXIAL  COORDINATE*  AND  A  »LCAS 


C«  NON-RFACTIVE  MASS  AOOITION  PROPORTIONAL  TO  THE  RATE  OF  REACTION.  »LCAS 

r*  *lcas 

C*  INPUT  VARIABLES!  *LCAS 

C*  *LCAS 

C*  A2A  I  ■  FXIT-TO-ENTRANCF  AREA  RATIO  «LCAS 

C*  GA  ■  CAMMA  OF  THF  PURGE  GAS  *LCAS 

C*  GP  •  GAMMA  OF  THE  PROOUCT  GAS  «LCAS 

C«  GR  a  GAMMA  OF  THE  REACTANT  GAS  *LCAS 

r*  MWAMWR  •  PURGE -TO -RE ACT ANT  MOLECULAR  WEIGHT  RATIO  *LCAS 

C*  MWPMWR  a  PRODUCT-TO-RE ACT ANT  MOLECULAR  WEIGHT  RATIO  *LCAS 

C<*  MI  a  INITIAL  MACH  NUMBER  FOR  A  ZUKOSKI  SEPARATION  CRITERIA  *LCAS 

C*  MR1  a  MACH  NUMBER  0*  THE  REACTANT  STREAM  AT  THE  ENTRANCE  *LCAS 

C*  PR1PI  a  REaCTANT-TO-lNITIAL  STATIC  PRFSSURF  RATIO  »LCAS 

C»  012  a  DIMENSIONLESS  HEAT  RELEASE  PLCAS 

C*  TAOTRj  a  PURGE  STAGNATION-TO-.<£ACTANT  STATIC  TEMPERATURE  RATIO  *LCAS 

C*  WA2WR1  a  PURGE-TO -REACTANT  MASS  FLOW  RATIO  *LCAS 

C«  WLCAS 

C*  OUTPUT  VARIABLES!  *LCAS 

C«  *LCAS 

C*  FLOW  a  CMOFE/SEPARATION  FLAG  »LCAS 

C*  ON  a  GAMMA  OF  THE  MIXED  STREAM  *LCAS 

OR  MWHMWR  a  MI XEO-TO— REACTANT  MOLECULAR  WEIGHT  RATIO  *LCAS 

C*  MM2  a  MACH  NUMBER  OF  THE  MIXED  STREAM  AT  THE  CAVITY  EXIT  *LCAS 

C*  PM2PR)  a  MiXFD-TO-REACTANT  STATIC  PRESSURE  RATIO  *LCAS 

C*  PMOPRO  a  mixeo-to-reactant  stagnation  PRESSURE  ratio  «LCAS 

C*  TM2TR1  a  MIXEO-TO-REACTANT  STATIC  TEMPERATURE  RATIO  *LCAS 

C*  TMOTRO  ■  NIXEO-TO-REACT ANT  STAGNATION  TEMPERATURE  RATIO  *LCAS 

C*  XM2XR j  a  MIXEO-TO-REACTANT  MOLAR  FLOW  RATIO  »LCAS 

C«  ZSEP  a  SEPARATION  LENGTM-TO-TOTAL  CAVITY  LENGTH  RATIO  •LCAS 

C*  «LCAS 

C«*MO**MMH***H*MH**HMM»**><**HH*<H*MM*H«**HM*M**H**LeAS 
C  LCAS 

C  LCAS 

IMPLICIT  REAL(L.M)  LCAS 

DIMENSION  FP(3) *MSQ (3) *TMTR1 ( 3) «Z < 3)  LCAS 

DATA  CHOKE /5HCH0KE / . SEP/3HSEP/  LCAS 


C-23 


01  AO 
0110 
0120 
0130 
oun 
OISO 
0160 
01  TO 
OIRO 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0260 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0360 
0390 
0400 
0410 
0423 
0430 
0440 
0450 
0460 
0470 
0400 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
O6Q0 
0610 
0020 
0630 
0640 
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APPENOIX  C  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SU6R0UTINE  LCAS  OVERLAY  LOS 

RAGE 

C-ZA 

c 

LCAS 

06*0 

c 

LCAS 

0660 

C«t« 

‘••LCAS 

OGTO 

c* 

•LCAS 

0660 

c» 

GAS  DYNAMIC  FUNCTIONS  FOP  ISENTROPIC  FLOP 

•LCAS 

0600 

c» 

•LCAS 

0700 

Ctt* 

‘••LCAS 

0710 

c 

LCAS 

07Z0 

c 

LCAS 

0730 

TOTM (6X,MJ»)«1. 0*0. 5* <6X-1. 0)«HX»MX 

LCAS 

07*0 

P0PN|OX,MX)»T0TM(8X,M*»»«(6X/t«X-1.0) > 

LCAS 

07S0 

c 

LCAS 

0760 

c 

LCAS 

0770 

C*u 

•••LCAS 

OTGO 

c« 

•LCAS 

0700 

c* 

CALCULATE  THE  SEPARATION  PRESSURE  RATIO  FOR  A  ZUKOSKl  CRITERIA 

•LCAS 

0*00 

c» 

•LCAS 

0610 

c»»* 

‘••LCAS 

OGZO 

c 

LCAS 

0030 

c 

LCAS 

0G*0 

P$ERRI*i.0*Q.36S*N! 

LCAS 

0650 

c 

LCAS 

0060 

c 

LCAS 

0070 

‘••LCAS 

0*00 

c« 

•LCAS 

0*00 

c* 

DEFINE  THE  HEAT  RELEASE  COEFFICIENTS 

•LCAS 

0000 

c« 

ASSUMING  A  LINEAR  VARIATION  KITH  Z 

•LCAS 

0010 

c» 

•LCAS 

oozo 

c**« 

•••LCAS 

0030 

c 

LCAS 

00*0 

c 

LCAS 

0050 

Ol«?.0*OJ? 

LCAS 

0060 

OF-O.O 

LCAS 

0070 

c 

LCAS 

00*0 

c 

LCAS 

0090 

c**« 

•••LCAS 

1000 

c* 

•LCAS 

1010 

c« 

INTEGRATE  D <*••?) /DZ  AND  DTM/DZ  USING 

•LCAS 

10ZO 

c* 

A  FOURTH-ORDER  RUNGF-KUTTA  FORMULA 

•LCAS 

1030 

c« 

•LCAS 

}0*0 

C*t« 

•••LCAS 

1050 

c 

LCAS 

1060 

c 

LCAS 

1070 

NPTS«ipi 

LCAS 

1080 

OZ«l ,0/FLOAT (NPTS-l ) 

LCAS 

1090 

OZRKIapJ/Z.O 

LCAS 

1100 

Z»3)a0.0 

LCAS 

1110 

MSO(3)»MRJ«MRl 

LCAS 

nzo 

TMTRIJ3I-I.0 

LCAS 

1130 

LPMPRJ-0.0 

LCAS 

11*0 

DO  10-5  I»Z.NPTS 

LCAS 

1150 

Z(I)-ZO) 

LCAS 

1160 

MSO(])aMSO(3) 

LCAS 

1170 

TMTR1 ( I ) »TNTR1 (3) 

LCAS 

11*0 

DO  )0G  J» 1 •? 

LCAS 

1190 

APPENDIX  C  CHEMICAL  LASER  ANALYSIS  PR08RAN  (CLAP) 


SURROUTINE  LCAS  OVERLAY  LOS 

rase 

C-?5 

N*0 

LCAS 

l?oo 

CALL  LCFS(A?A1,8A,6P.8R,MVAN)IR,N»IPN*R,MSQ(J) ,01 ,Q?,TA0T#1, 

LCAS 

1E10 

-TNTR1 (J) » VA?WR 1 «  7 ( Jl ,FMS0.FTM,0UM1,6M,MKN«wP,xNXR1) 

LCAS 

1??0 

ClaFMS0«0?RKl 

LCAS 

1  ?30 

01aFTM#0?R«l 

LCAS 

1  ?*0 

Z(d*l)a?(J)*D7RKI/?.0 

LCAS 

1  ?50 

NSQ(J*| jaNS8(J)*Cl/?,0 

LCAS 

1?60 

TNTRKV*1»»TNTR1  (J)*Ol/?.0 

LCAS 

l?TO 

•0  TO  1  o* 

LCAS 

1  ?80 

1  A 1 

CALL  LCES ( A?A1 , OA ,6P,GR,MWAMMR,MMPMWR«MSQ ( J* 1) ,Ql,Q?«TAOTRl« 

LCAS 

1?90 

-TMTR1 IJ*1 | ,WA?WR1 ,7( J*1 ) .FMSO.FTM.DUMl *6N,NWMNWR,XMxRl ) 

LCAS 

1300 

C?aEMS0*D7AK! 

LCAS 

1310 

0?aFTM*r»?RKI 

LCAS 

1 3?0 

N$0  0*1 1 aMSO ( J) *C?/?. fl 

LCAS 

1330 

TmTPI 0*1 laTNTRl (J)»D?/?.0 

LCAS 

13*0 

80  TO  10* 

LCAS 

1350 

10? 

CALL  LCES(A?A1 »6A.0P,GR,MWANHR,NMPMHR.MS0( J»1 ) ,0 1 .0?, TA0TR1 , 

LCAS 

1360 

-TMTR1  0*1  )  ,WA?Wft]  ,70*1)  .FMSQ.FTM.DUMJ  «QM ,MWMUWR , XMXR1  ) 

LCAS 

13T0 

C3arNS0*07RKI 

LCAS 

13*0 

DSaFTMaOERKI 

LCAS 

1300 

*O»l)a?(J)*07RKl 

LCAS 

1*00 

MSO ( J* ) ) aNSO ( J) *C3 

LCAS 

1*10 

TMTR1  0*1  *  “TNTR1  01*03 

LCAS 

1*?0 

SO  TO  104 

LCAS 

1*30 

103 

CALL  LCFS ( A? A 1 «GA  ,GP ,OP«MMAMWR, MMPMMR«MSQ  t J* 1 ) ,01 ,0?, TA0TR1 , 

LCAS 

1**0 

-TMTR1 0*1) ,HA?HR1 ,70*1 ) , FNSO.FTN.OUNl ,SM,MWMMVP, XMXR1 ) 

LCAS 

1*50 

C*aFMSQ*07RKI 

LCAS 

1*60 

OAaFTNaOZRKI 

LCAS 

1*T0 

MSO  ( J*l 1 aNSO (J) *(Cl«?,0*(C?*C3)*C4)/6,0 

LCAS 

1**0 

TNTR1 ( J*1 ) aTNTRl (J) *  (Dl ♦?. 0* (02*031  *0* ) /6. 0 

;cas 

1*90 

c 

LCAS 

1500 

c 

LCAS 

1510 

c*** 

••••LCAS 

15?0 

c* 

•LCAS 

1530 

c« 

CHECK  FOR  CHOKING 

•LCAS 

15*0 

c« 

•LCAS 

1550 

c* 

TRANSITIONS  FROM  SU850NIC-T0-SUPCRS0NIC  FLOW  OR 

•LCAS 

1560 

c* 

SUPERSONIC-TO-SURSONIC  FLOW  ARE  NOT  ALLOWED 

•LCAS 

1570 

c* 

•LCAS 

)5N0 

c«** 

••••LCAS 

1560 

c 

LCAS 

1600 

c 

LCAS 

1610 

10* 

IF (MSQ O),6T,l,0,AND,MS0O*l)*8T.i,0)  SO  TO  105 

LCAS 

16?0 

IF(MSO)J).LT.1.0.ANO,MSQO*1).LT.1.0)  80  TO  105 

LCAS 

1630 

FLOWaCHOKF 

LCAS 

16*0 

WRITE (6*106) 

LCAS 

1650 

RETURN 

LCAS 

1660 

105 

Nan*l 

LCAS 

1670 

60  TO  (101*10? ,103,1 06 ),N 

LCAS 

1680 

106 

CONTINUE 

LCAS 

1690 

C 

LCAS 

1700 

C 

LCAS 

1T10 

f* 

••••LCAS 

IT?0 

c* 

•LCAS 

1730 

c« 

INTEORATE  D(LN(P))/07  USIN6  SIMPSON, S  RULE 

•LCAS 

17*0 

ARRENOIX  C 
SUBROUTINE  LCAS 


CHEMICAL  LASER  ANALYSIS  RROORAN  JCLARl 
OVERLAY  LOS 


RAM  C-E* 


c* 

c«« 

c 

c 


107  CALL#LeFsiAZAl.aA,aR.8R.NVANNA,HMENvR,NSOlJ».01*SZ.TAOTRl. 

-TMTRl IJI .NAERRl tit J) tOUMI .DUNZ.FR  C J) .aN.Ml'MMiR.XNXRl > 
LRHRRl»LRNRRmOZ/*.fl>«CPR<U*4.0»PRtZnfRIS>  I 


C 

c 

c« 

c* 

c« 

c* 

c»« 

c 

c 


CHECK  FOR  PLON  SERARATION 


IF(PLOM.EO.SER)  80  TO  |0S 
pmri«EXR iLRHRRI » *RR|RI 
ieirmri.lt.rserrh  ao  to  10a 
PLON-SER 
ESER-ZOt 

URITE(A.llO) <ZSER.K«l,lO) 

iaa  continue 

MWJ»SORT  (MSOO) ) 

RN?RR | «E XR I LRNRR 1) 

PNoRR9*RORN (ON  *MMR | •PMERRl/RORM lOR.NRl I 
TMfTRt«TMTRl<3> 

TMOTRO«TOTN ISM.MN?) •TMRTRl /TOTM I8R.MR1 > 

XNRXR1»XMXP1 


C 

c 

c*«* 

c» 

c* 

c» 

c«« 

c 

c 

10* 

no 


format  statements 


FORMAT  CM*.  10  |TE.«MARNIN8  llll 
FORMAT(M*.10tTE.*MARNINO  llll 
>SER  ■•.E13.6./>> 

END 


THE  CAVITY  PLO*  MAS  CHOKED*. ✓) 
THE  CAVITY  PLOS  MAS  SERARATEO 


•LCAS 
•••LCAt 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
•••LCAS 
•LCAS 
•LCAS 
•LCAS 
'•••LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCt  i 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 
LCAS 

Less 

LCAS 
••••LCAS 
•LCAS 
•LCAS 
•LCAS 
••••LCAS 
LCAS 
LCAS 
>  LCAS 
AT  ZLCAS 
LCAS 
LCAS 


ITSO 
l  TOO 
1TT0 

ITSO 

JTOO 

isoo 

laio 

isto 

J030 
1 0*0 
IBSO 

iaao 

ISTO 

iaao 

)BOO 

)*00 

!«10 

IOEO 

1030 

1040 

10SO 

10*0 

IOT0 

10*0 

1000 

tooo 

E010 

EOEO 

E030 

Z040 

EOSO 

eo*o 

EOTO 
EORO 
EOOO 
E10* 
El  10 
E1E0 
E130 
E140 
E1S0 
El  AO 
E1T0 
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APPENDIX  C 
SUBROUTINE  LCFS 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAR) 
OVERLAY  LOS 


PAGE  C-27 


SUBROUTINE  LCf S ( A?A 1 ,GA ,GP .GR.MHANHR ,MHPMnR,MSO .01 ,02, T AnTR l .  LCFS  0100 

-TMTRl,NA2NRl,Z.FMS0.FTM,FP,aM,MHNNMR.XMXBl)  LCFS  0110 

C  LCFS  011*0 

C  LCFS  0130 

(•••••••••••••••••••••••••••^••••••••••••••••••••••••••••••••••••••••••lcfs  oi ao 

C*  *LCFS  0150 

C*  LASER  CAVITY  FUNCTION  SUBROUTINF  (LCFS)  *LCFS  0160 

C«  *LCFS  01T0 

C •••*••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• ••••LCFS  01R0 

C  LCFS  0100 

(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••LCFS  0200 

C*  *LCFS  0210 

C*  SUBROUTINE  LCFS  CALCULATES  THE  FUNCTIONS  OF  2.  Ha*?,  AND  *LCFS  0220 

C*  TMTRJ  FOR  THE  LASER  CAVITY  ANALYSIS  SUBROUTINE  (LCAS) .  *LCFS  0230 

C*  •LCFS  0240 

C»  INPUT  VARIABLES  I  »LCFS  02SO 

C»  *LCFS  0260 

C«  A2A1  ■  EXIT-TO-ENTRANCE  ARFA  RATtO  *LCFS  02T0 

C»  6A  a  GAMMA  OF  THE  PURSE  GAS  «LCFS  02R0 

C«  BP  a  BAMMA  OF  THE  PRODUCT  BAS  *LCFS  0290 

C*  6R  a  BAMMA  OF  THE  RF ACTANT  GAS  *LCFS  0300 

C«  MHAMHB  a  PURGE -T  O-RE ACT  ANT  MOLECULAR  HEIGHT  RATIO  *LCFS  0310 

c*  MHPMWR  a  PPOOUCT-TO  -REACTANT  MOLECULAR  HEIGHT  RATIO  *LCFS  0320 

C«  MSO  a  (MIXED  STREAM  MACH  NUMBER) *«2  *LCFS  0330 

C«  01  a  HEAT  RELEASE  COEFFICIENT  «LCFS  0340 

C»  02  a  MEAT  RELEASE  COEFFICIENT  »LCFS  0330 

C*  T AOTR l  a  PURGE  ST A6N ATI ON-To-RE ACTANT  STATIC  TFMPERATuRE  RATIO  *LCFS  0360 

C*  TMTRl  a  MIXED-TO-REACTANT  STATIC  TEMPERATURF  RATIO  »LCFS  0370 

C*  H A2HR 1  a  PUR8E-T0-RE ACT ANT  MASS  FLOH  RATIO  »LCFS  0380 

C*  2  a  DIMENSIONLESS  AXIAL  COOROINaTF  *LCFS  0390 

C«  *LCFS  0400 

C«  OUTPUT  VARIABLES!  *LCFS  0410 

C*  *LCFS  0420 

C«  FMSO  a  0(M**2)/02  »LCFS  0430 

C*  FP  •  0(LN(P)»/OZ  *LCFS  0440 

C*  FTM  a  0TM/D2  *LCFS  0430 

C*  GM  a  BAMMA  OF  THE  MIXED  STREAM  *LCF$  0460 

C*  MHMMHP  a  MIXED-TO-REACTANT  MOLECULAR  HEIBHT  RATIO  »LCFS  0470 

C*  XMXR1  a  MIXED-TO-REACTANT  MOLAR  FLOH  RATIO  »l CFS  0480 

C*  «LCF'S  0490 

(••••••••••••••••••••••••••••••(•••••••••••••••••(••••M»mu»*M*M*LCFS  0500 

C  LCFS  0310 

C  LCFS  0320 

IMPLICIT  REAL(M)  LCFS  0530 

C  LCFS  0340 

C  LCFS  0350 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••LCPS  0360 

C»  *LCFS  0370 

C«  FUNCTION  STATEMENTS  *LCFS  0380 

C*  *LCFS  0390 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••LCFS  0600 

C  LCFS  0610 

C  LCFS  0620 

BFUNC1 (A«BiC)aF2«A»(P*HA2HRl*C)»F3  LCFS  0630 

BFUNC2(A.B.C1*(A«UA2HR1»B-C)»F1  LCFS  0640 


APPENDIX  C  0!£*!CAI  LASER  ANAL* SiS  PROGRAM  <Ci.AP| 

suoroutinf  lcfs  ovcruly  lds  page  c-r* 


C  LCFS  0690 

C  LCFS  0660 

. . .  06T0 

C*  «LCFS  0660 

C-  CALCULATE  CONSTANTS  «LCFS  0690 

C-  -LCFS  0700 

C*— — — — — — — — — — — — — — — s>— — — — — LCFS  OTIC 

C  LCFS  0726 

C  LCFS  0735 

0Al-0A/f0A-l,O>  LCFS  0740 

OA2«1.0/(8A-1.0)  LCFS  07S0 

OPl-8P/(0P-i.O>  LCFS  0760 

3P2-1. 0/(62-1.01  CCFS  077C 

eRl-3R/<6R-i.0)  LCFS  0780 

OB2-1.C^«0«-1.0)  LCFS  0700 

NUPM8A-1.0/M8AM8P  LCFS  0600 

NURMNP-1.0/NWPMWR  LCFS  0610 

C  LCFS  0620 

C  LCFS  0630 

. . . . . . . . .  06*0 

C*  -LCFS  0690 

C-  FUNCTIONS  OF  2  -LCFS  0960 

C*  -LCFS  0670 

C— — ———————  ••••••—•-•-•••••••••••••••••••••••LCFS  0680 

C  LCFS  0890 

C  LCFS  0900 

Fi-?,o*j<02-on-2.an/(02.an  lcfs  o»io 

F2- (< (0 1-02 ) *2-2,0-01 ) *Z*  »02*8l ))/ (02*01 )  LCFS  0920 

F3-  (  (  (Qi'-Ol  )-Z*2.0-Cl)-2)/(02*01>  LCFS  0930 

OM.0FUNC1 I0R1.N8RR8P*6P1,H8RM8A*8A1)/6FUNC1 (3R2.M8RN8P-0P2,  LCFS  09*0 

-HR9MNA«(,A2>  LCFS  0990 

NWv^UR-OFUNCl (1.0, 1.0.1. 0)/6FUNCl .1.0.N8RNWP.N8RN8A)  LCFS  0960 

0- (02-01) »2*Q1  LCFS  0970 

XNXR1-OFUNC1 (l.O.NNRNPP.MWRMNA)  LCFS  0960 

C  LCFS  0990 

C  LCFS  1000 

C— — — — — — . ••—••—•——•—•• ’—LCFS  1010 

C*  '’LCFS  1020 

C*  FUNCTIONS  OF  2.  MSO,  AND  TNTR1  -LCFS  1030 

C*  -LCFS  10*0 

C*  fa  •  (1/-)  (QA/DZ)  F9M  -  ( 1/0N)  (D6M.«Z)  *LCF$  1090 

C*  FH  >  n/CPN-TN) (OH/OZ)  FMUM  ■  (1/NRN) CDNRN/OZ)  -LCFS  1060 

C-  FMSO  •  D(N— 21/02  FP  ■  D(LN(P))/D2  -LCFS  1070 

C-  FTP  •  0TM/02  FXM  ■  ( 1/XM) (OXM/DZ)  -LCFS  1060 

C-  -LCFS  1090 

c— —————— —————— —••••••••••••••— —lcfs  iioo 

c  LCFS  1110 

C  .  LCFS  1120 

FA«<A?M-1.0>/(  (A2A1-1.0)-Z*1.0>  LCFS  1130 

FGPmGFUNC? (HWRM8P-0P1 .N8RNHA-0A1 ,0R1 ) /3FUNC1 (9RI .MWRMWP-0P1 .  LCFS  11*0 

-MRRMt—OAn-OFUNCZ^WRNNP-OPZ.KWRNtfA-SAZ.STZI/OFL'Nci  (0R1  .MWRNR?-  LCFS  1150 

-flP?fMWRM8A*0A2>  I  CFS  1160 

TM«  (  I0M-1 , o i  ("ON )  *  ( 3P1 -Q/TNTR?  -  CO A 1-MWRN8 A-  ( 1 . 0-TAOTR1 /TKTR1 )  ♦  LOFS  1  TO 

-KSO*0N/(2.O-Mwr.WtfR5  :*8A2*R:«F1) /XNXR1  L-'.FS  1160 


FNRN-0FUNC2 (O.O.l.OtOtO) /6FUNC1 ( 1 .0, 1 ,0 . 1 .0) -0FUNC? (FWRN8P.N8RNR A, LCFS  1190 


i 
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CHfMICAL  LASPB  ANALYSIS  PrfflOJlAN  (Cl.  iP) 
OVC«LA>  LOS 


PAttl  C-PP 


A 


APPrNr.t*  c 

suppouriNf  lcps 


-1 .0) /flPUNCl < I.O.MWBNPP.NBPMPA)  LCPS  IPOO 

p xm-cpuncp <mprn»ip,w¥!»nw<-.  i.o)  /apijnci  1 l  .e  ,n#pn,**'.p.pbnwa i  LCrs  i pi o 
rvso«Nso«  i  <?.o*  (ON-i  .oipnsqi*  ( <  i.ft»t*N*"Joi»iPM*<»r*«pM)-rA)  ♦  u  ,o*  lcps  ippo 
.«n*msoi « irw-rNNH) -roN) / ( i ,0-nsoi  lcps  i?jo 
fpham*ms6« (rA-fM.r*wM. (?.o. (Ojj-1 ,ni *nsq»  *  rrMPN.r »ni » / . l .o-nsoi  lcps  ipao 
PTN«TNT»1« ( (CN-l .01 PNSO* (PA- ( 1 . 0 .OM^NStt I • JPKMoPnpN) .PP>«M) * ( 1 ,0-ON*LCPS  IPSO 
-NSO)PPN|/(1.0-NSO|  LCPS  IPAO 
PNO  LCPS  1 P  TO 


annnnaonnnnmnnanoanm^nnnnnon^o^oonoriDonoooonortr.ona 


subroutine  lpncs 


-Pf.Bf.T* I 


ovebl4y  los 


LASER  PRIMARY  N077LF  CALCULATION  SUBROUTINE  (LPNCS) 

•  •••••••••^••••••••••u***  **••••»»••••**•  •••••••  *•«  «•••••••••••••••••• 


GIVEN  A  LASER  nozzle  confiouration  and  PRIMARY  COMBUSTOR  pressure 
(TEMPERATURE),  SUBROUTINE  LPNCS  CALCULATES  THF  PRIMARY  COMBUSTOR 
TEMPERATURE  (PRESSURE)  REOUIREO  T9  ACHIEVE  A  GlVFN  AVALIABLE 
FLUORINE  FLUX. 

INPUT  VARIABLES) 


OEORME 


OPE 
OPS 
OSE 
EOA  A 

OEOMPN 


8E0MSN 


MNB 

LPNOZ 

NSPN07 

PKFBAC 

KEEP  I 

XFPP? 

XEPP3 

XEPPA 

XEPP5 

XEPPA 


CCUTROL  VARIABLE  SUCH  THAT  I 
"Of"  FOR  A  OF  CMEEICAi  LASER 
"HF"  FOR  A  ME  chemical  LASER 
PRIMARY  NOZ7LE  EXIT  OIAMETER  fMJ 
O*,  PRIMARY  NOZZLE  fMJ 
SECONDARY  N077LE  EXIT  DIAMETER  IM) 

ERF£  FLOUR INE  FLUX  (KNOLE/S-M?) 

PRIMARY  N077LE  OEOMETRY  CONTROL  VARIABLE  SUCH  THAT) 
••AX"  FOR  AxISVMMETRJC  NO?rLES 
"30"  FOR  SLIT  N077LES 

SECONDARY  N077LF  GEOMETRY  CONTROL  VARIABLE  SUCH  TMA T ( 

"AX"  FOR  AX  I SYHNETP I C  NOZZLES 

"?0"  FOR  SLIT  N077LFS 

HEIOHT  OF  N0Z7LF  BANK  fNl 

LENGTH  OF  PRIMARY  NOZZLE  INI 
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C»  OFOBhF  »  CONTBOL  VBBJ*BLF  SUCH  THBTi 
C*  •  "Of"  FOB  *  OF  CMfMlCAL  LBSFB 

C»  a  "nF "  FOB  *  NF  CNFNICBL  LBSfB 

C»  DE  •  Sf CONOBBY  N077LF  r*!T  riFBFTFB  t*l 

r«  os  ■  o»  t*»i 

C*  GFONSn  a  SFfONOBBr  NO/7LF  OfONfTBt  CONTROL  V*B  J  ABLE  Sl>fN  TmbTi 

fa  a  «*X"  FOB  * X [ SYNNf TB If  N0771ES 

fa  a  «FO*  fob  SLIT  Nomrs 

C*  HNil  a  MfJOHT  OF  N077LF  04NK  f*l 

fa  LSW07  a  LFNOTH  OF  SFfO BTUBY  N077LF  t*M 

fa  NPN07  a  nuNBCB  OF  PBImbBy  N077LCS  OfB  SNOtT/S  OF  P»IH*H^  FLO* 
f"  (*/KN(UCJ 

fa  NSPN07  a  *k,N«CB  OF  Sf CONP*BY.TO-P»tNBflY  N071lFS 
f*  *»L  a  v,  »SFB  CB V I T Y  NlYTOBf  RBTIO 

fa  TO  ■  fO**BUSTOB  OB  N077LF  STBONBTION  TCBBfB*TllBF  t«  1 

fa  XFPP,-»  a  NOlf  FPAfT  ION  OF  Fp  IN  P#I*»*BY  STBFAM 

fa  XF7P  3  a  POLE  FBBCT I  ON  OF  F  IN  PPIMBRV  STBEA“ 

fa  XFSP I  a  -OLr  FB4CTION  OF  C?  IN  SECONOBBY  STBf*M 

fa  X'SNp  <•  NOI.F  FBafTION  OF  Hf  IN  SECONOBBY  STBFBN 

fa  XF  SB  3  a  *»OLF  FRACTION  OF  N7  IN  SECONOBBY  STBFBN 

v'a 

f>  OU’PUT  v*BI*BLFSi 

fa 

fa  AFASF  a  */»*,  f FffCT  JVF 
fa  BfBSG  a  A/A*,  PFONfTBIC 

fa  AKMSC  a  TOTAL  EFFECTIVF  N077LE  EXIT  AREA  FOB  SfCONDBBV  FLOP  Pr» 

C*  UNOLF/S  Of  01.JN4BY  FLOP  B  ASFP  ON  TmF  CONBuSTOB  TfNPEB»TU«L 

f*  :S-B?/F**OLn 

Ca  BFNSf  a  TOTBL  EFFECTl VF  N07/L l  FXIT  BBf*  FOB  SFCONOBBf  FLOP  PCB 
C*  KNOLF/S  OF  PBINBBY  FLOP  BBSFP  ON  TnF  FXIT  TFNBCBBTUBC 

C»  IS-N?/F*»OL€I 

fa  FBIL  a  fBBOB  F‘_<\6 

C*  6C  a  BBMNi  OF  THf  SffONOXBy  STBFXN  BBSEO  ON  THE  CONBUSTOB 

C»  TENPCB4TONE 

C«  CF  a  OBNNB  OF  V'MF  SFCONOBBY  SVBf BN  BBSCO  ON  TmF  E*|T 

fa  TfHPFBBTOPF 

f«  Wf  a  PifN  NUBBFO  BT  TNf  N077LF  FXIT 


•LSNCSI  0700 
•LSNCSI  07T0 
•LSNCSI  07B0 
•LSNCSI  07Bf* 
•LSNCSI  0300 
•LSWCSl  0310 
•LSNCSI  0370 
•LSNCSI  0330 
•LSNCSI  03*0 
•LSNCS)  03*0 
•LSNCSI  0300 
•LSNCSI  O3T0 
•LSNCSI  0300 
•LSNCSI  0  300 
•LSNCSI  0*00 
•LSNCSI  C*10 
•LSNCSI  0470 
•LSNCSI  0*30 
•LSNCSI  0**0 
•LSNCSI  0**0 
•LSNCSI  0*00 
•LSNCSI  04T0 
•LSNCSI  n*00 
•LSNCSI  04B0 
•LSNCSI  0*00 

•lsncsi  osie 

•LSNCSI  0*70 
•LSNCSI  0530 
•LSNCSI  0**0 
•LSNCSI  0*.*0 
•LSNCSI  0*00 
•LSNCSI  OSTO 
•LSNCSI  0300 
•LSNCSI  05«0 
•LSNCSI  0000 
•LSNCSI  0010 
•LSNCSI  0070 
•LSNCSI  0030 
•LSNCSI  00*0 


r»nnr  ^  o  o  n  o  n 


appenpit  r 
SUBROUTINE  LSNCSl 


CHEMICAL  t  ASF P  ANALYSIS  PBOPPAM  (ClAP) 

ovC°1*y  IDS 


NN  C-Jl 


MW  •  MOLECULAR  wfir.HT  or  THE  SECONDARY  STPFAN  (XG/XMOLE) 

nsnoz  ■  numbfb  or  secondary  nozzles  per  knole/s  or  primary  flow 

(S/XWOLE ) 

PE  ■  S’ATIC  PRESSURE  at  the  nozzle  EXIT  (PA) 

on  ■  COMBUSTOR  OR  NOZZLE  STAGNATION  PBFSSUPE  fPA) 

PE  •  REYNOLDS  NUMBER  AT  TmE  NOZZLE  EXIT 

re  ■  static  temperature  *t  the  nozzle  cut  mi 

ARMS  »  TOT5L  SECONDARY  mOLAL  FLOW  BATE  PEP  XMOLE/S  Of  PRIMARY 

FLOW 

NOTE  I  ALL  CALCULATIONS  ABF  PC REOBMf 0  IN  Si  UNITS 


implicit  peal<mi 

BrAL  LRNOZ. LSNOZ.NPNOZ, NSNOZ. NSPNDZ 
dimension  Aran 

COMMON/CCS T/OFORh* 

COMMON /CCS A /BL 

COMMON/CCS  I  4/ XFPP? 

common/ccs i s/xfpp i 

common /ccs i a/xfs»] ,«rsB?,xrspj 

DATA  PI/3. lilSR?6S3SRR7g/.RRAR/A.3l43*E»n3/ 
PAT A  A X /?HAX/ < NF / ?mmF /  .SUP/ 3MSUP/ . YE  S/3MYE  S/ 


function  statements 


TOTMie.M) "1.0*0. S* <6-1 .01 «m«m 
POPM (O.M) ■T3TMIG.M)** (6/ <0-1 ,0) ) 

BMje.Mj.MPSORT (0«T0TM(9,M) ) 

A ASM (6.M ) « ( l.u/M) • <?.0*T0TM(6.M) /  ( 6.  1 .01 )  •• ( 0 .5* (0*1 #0) / <0-1 .01 1 


CALCUIATE  THE  SCCONOABY  STREAM  PROPERTIES 

rased  on  the  comrustoh  TENPFRATURE 


*E(61«XFSP? 

X/(T1»XFSR3 

IE IDFORME.EO.MEi  do  TO  101 
XE  (A)MESRl 


•LSNCSl 
•LSNCS 1 
•LSNCS1 
•LSNCS 1 
•LSNCS 1 
•LSNCSJ 
•LSNCS 1 
•LSNCS1 
•LSNCSl 
•LSNCS 1 
•LSNCS1 
•LSNCS! 
••LSNCS! 
LSNCS1 
LSNCS! 
LSNCS! 
LSNCS! 
LSNCS! 
LSNCS! 
LSNCS! 
LSNCSl 
LSNCS 1 
LSNCS! 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
►•LSNCSl 
•LSNCSl 
•LSNCS) 
•LSNCSl 
••LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
••LSNCSl 
•LSNCSl 
•LSNCSl 
•LSNCSl 
•LSNCSl 
••LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
LSNCSl 
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»Pf»fN01*  f  C *»€**! CAL  LASfP  *NAL»SIS  PP0A6AN  iClAPl 


<UMOUTIn f  LSNCSl  OVfPLAT  LOS 

PAGE 

C-JA 

tr <«ian.n 

LSNCSl 

1700 

•0  TO  in? 

LSNCS1 

1710 

1"1 

*t (*»•«. n 

LSNCSl 

1770 

it iviairsPi 

LSNCSl 

1730 

i«7 

C*LL  VISC(*.9,*F .*,6) 

LSNCSl 

17*0 

CALL  CPCALC<6.9.Tn.*F,§c.**P> 

LSNCSl 

l?60 

e 

LSNCSl 

1 740 

c 

LSNCSl 

I7T0 

c««* 

1700 

c* 

•LSNCSl 

1 700 

c* 

Nom?  nro**rT»v  calculations 

•LSNCSl 

1300 

c« 

•LSNCSl 

)  31 0 

1370 

f 

LSNCSl 

1  33C 

c 

LSNCSl 

13*0 

1? inronsN,Nr.*«»  no  to  im 

LSNCSl 

13*0 

oeofac-i.o 

LSNCSl 

I3A0 

»c*sn«nr»oe/ <os*os) 

LSNCSl 

13T0 

*s«Pl»ns»os/*.o 

LSNCSl 

1  3  AO 

60  TO  10* 

LSNCSl 

)  3*0 
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scop«c>o.o 

LSNCSl 

1*00 

afas6«pe/os 

LSNCSl 

1*10 

AS-PS*MN6 

LSNCSl 

1*70 

in* 

l 6N0I»S0PT  (LSN07»LSNC7«  <  (OE-OSl  /?.0)  »•?) 

LSNCSl 

1*30 

c 

LSNCSl 

1**0 

c 

LSNCSl 

1*S0 

1*60 

c* 

•LSNCSl 

1*70 

c* 

CALCULATE  Tnr  SFCC.NOART  FLU*  *ATFS  ANO  P„ 

•LSNCSl 

1*P0 

c* 

•LSNCSl 

1*96 

c ••• 

isoo 

c 

LSNCSl 

mo 

c 

LSNCSl 

|S70 

NSN07"NSPN07*NPN07 

LSNCSl 

1S30 

*S«PL«  *  KF.-»P?.0  .5*KFPP3 1  /  (  XFSP  1  *NSN07 1 

LSNCSl 

1**9 

M$bIS*MM 

LSNCSl 

I5S0 

PS«NS«SQ*T<60A6»Te/NN> /<AS»WN<6C,1 .01 1 

LSNCSl 

1*60 

po*ps*popni6C«i.o> 

LSNCSl 

1S70 

c 

LSNCSl 

1SA0 

c 

LSNCSl 

1590 

c*** 

)  600 

c* 

•LSNCSl 

1610 

c* 

ITERATE  Nr  TO  ESTABLISH  THE  N077LE  EXIT  CONDITIONS 

•LSNCSl 

1670 

c* 

•LSNCSl 

1630 

c*** 

16*0 

f 

LSNCSl 

1660 

c 

LSNCSl 

1660 

NTVPE"! 

LSNCSl 

1670 

NtT-1 

LSNCSl 

1660 

CALL  NAAS(SC>1.0<AEAS6.SUP.S.nF-0A>NSUPO,r*IL> 

LSNCSl 

1690 

It  (FAIL .CO. YES)  60  TO  inT 

LSNCSl 

1700 

OELNC-NSUPO-l.O 

LSNCSl 

1710 

NCoNSUPn 

4.SNCS1 

J7?0 

00  1  on  ITE»i-i,:on 

LSNCSl 

1730 

aFASF»AASN<6C,mE) 

LSNCSl 

17*0 
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appendm  r  cnf»*ical  iasfr  inuism  rro«r»h  « Ci  *P> 


SU6R0UT  INF  LSNCSl  OVf»L»*  L  OS 

PAGE 

C-39 

PFaPO/PnPNlOC.NF  ! 

LSNCS1 

1  TSP 

Tf«Tr/tnT**(GC.“i  1 

LSNCS1 

1  T60 

VP  »«*E  •  S!J«T  IOC«RHAR«TF  /Hri 

LSNCS1 

1  TTp 

call  l*l *v" i a.b.ofof *c ,L6noz .n»,re .te . to. vp .del TA.Rr i 

LSNCS1 

1789 

Pff»O€-?.e*0fLT* 

LSNCS1 

1  T80 

XAEASC-PFE/OS 

LSNCS1 

1800 

IP  l«tOP<tN,tg,UI  XAF  ASF  -XAF ASF  • XAF ASF 

LSNCS1 

1810 

iia»**«iF*se-i*c*sF.i,o 

LSNCSl 

1 8E0 

f»»(l»««MJF‘i.nF.M 

LSNCS1 

1830 

CALL  lTF«(«.0CL**f.6.P€-06.-l  .0.SI6NA. 1 .0. ERROR r NIT. NT VPE.INE8. 

LSNCS1 

1840 

-vne»,*pos.vpos,nsi8ni ,nsi«n8> 

LSNCS1 

1890 

IP (NTVPF.ro, 31  60  TO  106 

LSNCS1 

I860 

IP  INC ,LT. 1 .O.OP.NF .GT.NSUPDl  80  TO  108 

LSNCSl 

18T0 

1#* 

CONTI NUF 

LSNCS1 

1880 

90  TO  10* 

LSNCS1 

18*0 

106 

tlFatPlT[«t<; 

LSNCS1 

l»oo 

C 

LSNCS1 

1*10 

C 

LSNCS1 

1*80 

C»« 

••LSNCSl 

1*30 

c« 

•LSNCS1 

1**0 

r« 

RECALCULATE  THF  SECONDARY  STREan  PROPERTIES 

•LSNCSl 

1*90 

c» 

RASED  ON  THF  NOZZLE  FXJT  TEMPERATURE 

•LSNCSl 

1*60 

c* 

•LSNCS1 

1  «T0 

C»*« 

••LSNCSl 

1*80 

c 

LSNCS1 

1**0 

c 

LSNCSl 

?000 

CALL  CPCAIC<6.*.TF.XF.GE."R) 

LSNCSl 

8010 

c 

LSNCSl 

8080 

c 

LSNCSl 

8030 

(•••• 

••LSNCSl 

80*0 

c» 

•LSNCSl 

8090 

c« 

CALCULATE  THE  TOTAL  SECONOARV  NOLAR  PlOR  RATF5  AND 

•LSNCSl 

8060 

c* 

FPPFCTIVF  NOZZLE  EXIT  AREAS  FOR  SECONDARY  FLOR 

•LSNCSl 

80  Tp 

c» 

•LSNCSl 

8080 

(*••• 

••LSNCSl 

80*0 

c 

LSNCSl 

8100 

c 

LSNCSl 

81  10 

X8MS»XS#NSN0Z 

LSNCSl 

8180 

arnsc»aff»nsnoz 

LSNCSl 

8130 

ARNSE"APMSC»RN (OC.HE ) /RN (6E .NE 1 

LSNCSl 

81*0 

RETURN 

LSNCSl 

8190 

c 

LSNCSl 

8160 

c 

LSNCSl 

8 1  TO 

<■••• 

••LSNCSl 

8180 

c« 

•LSNCSl 

81*0 

c« 

FAILURE  INDICATORS 

•LSNCSl 

8800 

c» 

•LSNCSl 

8810 

c««* 

••LSNCSl 

8880 

c 

LSNCSl 

8830 

c 

LSNCSl 

88*0 

;  oT 

RR I TE  ( 6 •  80  1 1 

LSNCSl 

8890 

RETURN 

LSNCSl 

8860 

106 

RRITE 16.8081 

LSNCSl 

8870 

80  to  iio 

LSNCSl 

8860 

IP* 

R*ITF (6,803) 

LSNCSl 

88*0 
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APPENDIX  C  CHEMICAL  LASER  ANA'.YSIS  PROGRAM  <CLAP> 

SUBROUTINE  LSNCSl  OVERLAY  LOS  PAOE  C-40 

110  VRITE A, fl.GC. MV, MF.MSUPO, RE. MS, TC.TO.PE.PS, Po.XACASF.AEASE  LSNCSl  *300 
PAIL-YES  LSNCSl  *310 

C  LSNCSl  *3*0 

C  LSNCSl  *330 

C— — LSNCSl  *340 
C-  -LSNCSl  *350 

C-  FORMAT  STATEMENTS  -LSNCSl  *360 

C-  -LSNCSl  *370 

C——— — ————————————————————————LSNCSl  *380 

C  LSNCSl  *390 

C  LSNCSl  *400 

*01  PORMATJ-O-.T*. -SUBROUTINE  MAAS  HAS  CALLED  PROM  SUBROUTINE-. /,TZ.  LSNCSl  *410 
-•LSNCSl  FOR  THE  CALCULATION  OP  MSUPO  PROM  AFASB-)  LSNCSl  *4*0 

*0*  FORMA* I-1-.T2. -IMPOSSIBLE  VALUE  FOR  ME-./.T2.-PROORAM  TERMINATED  ILSNCSl  2430 
-N  SUBROUTINE  LSNCSl-)  LSNCSl  2440 

>'03  FORMAT (-1-.T2. -CONVERGENCE  FAILURE  IN  SUBROUTINE  LSNCSl  FOR  ME  SUCLSNCS1  *450 
-H  THAT  XAEASE-AEASE-)  LSNCSl  *460 

*04  FORMAT J-0-.T2. -A  — ,E13.6,T38,-B  — .EI3.6,/.  LSNCSl  *4T0 

-T2.-OC  --.E13,6. T3B.-MH  — .£13.6.-  KG/KMOLF-./.  LSNCSl  *480 

-T2.-ME  — .E13.6.T38.-MSUPD  — .E13.6,/.  LSNCSl  *490 

-T2.-RE  — .E13.6.T38.-HS  — .E13.6,-  KB/S-./,  LSNCSl  2500 

-T2.-TE  --.E13.6.-  K-.T38.-T0  —.El?. 6.-  K*,/»  LSNCSl  *510 


-T?,-PE  -.E13.6.-  PA-.T3B.—S  —  ,El3w6»-  PA-./.  LSNCSl  *5*0 

-T2.-P0  — .E13.6.-  PA-.T38.-XAEASE  —,E13. 6./.  LSNCSl  *530 

-T2.-AEASF  —.E13.6)  LSNCSl  *540 

END  LSNCSl  *550 
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appfndix  r 
subroutine  lsncs? 


CHEMICAL  IASER  ANALYSIS  PROGRAM  <CLAP» 
OVERLAY  LOS 


PAOE  C-M 


SUBROUTINE  L5NCS?  (OE  *PS  «GFON5N«MNB  »LSNOZ  ,N’/NOZ  , NSPnOZ , TO • AEASE  •  LSNCSf  oIOO 
-AEASG.AKMSC, AKMSf .FAIL .3C.3E.MF . N* , NSNOZ , PE , Po . RE . TF , XKMS )  LSNCS?  01 10 

LSNCSf  0 1  ?0 
LSNCS?  01)0 

'••••••••••••••••••••••••••••••••••••••••••••••••* ••••••••••••••••••••LSNCSf  01  AO 

•LSNCSf  0190 

LASER  SECONDARY  NOZZLE  CALCULATION  SUBROUTINE  (LSNCS?)  ‘LSNCSf  OlftC 

•LSNCSf  0 1  TO 

•••••••••••••••••a . ••••••••••••••••LSNCSf  0 1B0 

LSNCSf  0190 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••LSNCSf  Of 00 

•LSNCS?  Of 10 

OIVEN  A  CONSTANT-AREA  LASER  NOZZLE  CONFIGURATION,  SUBROUTINE  LSNCSf  •LSNCSf  OffO 

CALCULATES  THE  SECONDARY  COMBUSTOR  OR  STAGNATION  PRESSURE  REQUIRED  ‘LSNCSf  Of)0 

TO  ACHIEVE  A  GIVEN  LASER  CAVITY  MIXTURE  RATIO.  •LSNCSf  OfAO 

•LSNCS?  OfSO 

INPUT  VARIABLES!  ‘LSNCSf  Of«0 


OEORHE 


OE 

DS 

GEONSN 


HNB 

LSNOZ 

NPNOZ 

NSPNOf 

RL 

TO 

XEPPf 

XEPP) 

XESR1 

XESRf 

XFSR3 


CONTROL  VARIABLE  SUCH  THAT! 

"OE”  EOR  A  OF  CHEMICAL  LASER 
"HE"  FOR  A  MF  CHEMICAL  LASER 
SECONDARY  NOTfLE  EXIT  DIAMETER  f N ) 

0*  (M] 

SECONDARY  NOZZLE  GEOMETRY  CONTROL  VARIABLE  SUCH  THAT! 

"AX"  ‘OR  A* ISYMMETR1C  NOZZLES 

"fO"  FOR  SLIT  NOZZLES 

HEIGHT  OE  NOZZLE  RANK  (Ml 

LENGTH  OE  SECONDARY  NOZZLE  (MJ 

NUMBER  OF  PRIMARY  NOZZLES  PER  KMOLE/S  OE  PRIMARY  FLO* 
I S/KMOLE I 

NUMBER  OF  SECOND ARY-TO-PRt MARY  NOZZLES 
LASER  CAVITY  MIXTURF  RATIO 

COMBUSTOR  OR  NOZZLE  STAONATION  TEMPERATURE  (K1 
■  MOLE  FRACTION  OF  E?  IN  PRIMARY  STREAM 
•  MOLE  FRACTION  OE  F  IN  PRIMARY  STREAM 
MOLE  FRACTION  OE  Df  IN  SECONDARY  STRFAM 
MOLE  FRACTION  OE  MF  JN  SECONDARY  STREAM 
MOLE  FRACTION  OF  N?  IN  SECONDARY  STREAM 


OUTPUT  VARIABLES! 

AEA5E  ■  A/A* ,  EFFECTIVE 
AEASO  ■  A/A*,  GEOMETRIC 

AKMSC  ■  TOTAL  EFFECTIVE  NOZZLE  EXIT  AREA  FOR  SECONDARY  FLOP  PER 

KMOLE/S  OF  PRIMARY  FLO*  BASED  ON  THE  COMBUSTOR  TEMPERATURE 
(S-Mf/KMOLEl 

AKMSE  ■  TOTAL  EFFECTIVE  N077LC  EXIT  AREA  FUR  SECONDARY  FLO*  PFR 
KMOLE/S  OF  PRIMARY  FLO*  BASED  ON  THE  FXIT  TEMPERATURE 
IS-Mf/KMOLE) 

FAIL  •  ERROR  FLAG 

GC  ■  OAMMA  OF  THE  SECONDARY  STREAM  BASED  ON  THE  COMBUSTOR 

temperature 

OE  •  GAMMA  OF  THE  SECONDARY  STREAM  BASED  ON  THE  EXIT 
TEMPERATURE 

ME  •  MACH  NUMBER  AT  THE  NOZZLE  EXIT 


•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCS? 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCS? 
•LSNCSf 
'-LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•L5NCS? 
•LSNCS? 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCS? 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCS? 
•LSNCS? 
•LSNCS? 
•LSNCS? 
•LSNCS? 
•I SNCSf 
•LSNCS? 
•LSNCS? 
•LSNCSf 
•LSNCSf 
•LSNCSf 
•LSNCS? 
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appendix  c 

SUBROUT  I  Nf  LSNCSi' 


CHEMICAL  LASER  ANALYSIS  PPf?3P/U.  )C HP) 
OVEPLAl  LOS 


C*  MM 

C«  NSNOZ 

c« 

C«  PE 
C*  Po 
C»  PE 
C*  TE 
C«  XKMS 

c« 

c» 

C«  NOTE  I 

c« 

£••«•••< 

c 

c 


-  MOLECULAR  MfIGHT  0*  THE  SECONDARY  STREAM  (XO/KMOLE) 

•  NUMBER  OE  SECONDARY  NOZZLES  PEP  KMOLE/S  OE  PRIMARY  ELOM 
tl/KMOLC) 

-  STATIC  PRESSURE  AT  THE  NOZZwE  EXIT  tPA) 

■  COMBUSTOR  OR  NOZZLE  STAGNATION  PRESSURE  fPA) 

»  REYNOLDS  NUMBER  AT  TNE  NOZZLE  EXIT 

■  STATIC  TEMPERATURE  AT  THE  NOZZLE  EXIT  IK! 

■  total  SECONDARY  MOLAR  ELOM  RATE  PEP  XMOLF/S  OE  PRIMARY 
ELOM 

ALL  CALCULATIONS  ARE  PEPEORMCO  IN  SI  UNITS 


*•**< 


IMPLICIT  REAL(M) 

peal  LSNO7*NPNGZ,NSNC7,NSPN0Z 


dimension  xftn> 


COMMON/CCS3/OEOPME 
COMMON/CCSB/RL 
COMMON/CCS 1A/XFPP? 

COMMON/CCS IS/XEPPj 
COMMON/CCS 1B/XESPI»XFSP?«XESP3 
C 

DATA  PI/3.!41S9?65356979/,P8AP/S.3U36O03/ 
DATA  AX/2MAX/,Mf/?HMF/,SUP/3HSUP/* YES/3MYES' 
C 
C 

. . . . . . . 

c« 


c*  FUNCTION  STATEMENTS 

c* 

. . . . 

c 

c 

TOTM!3,M)«1.0*0.5«(0-1.0)»M»M 
POPMIO.M)  ■VOTM(0,M)«'*(6/(0-I.0)  > 
MM(GtMJ»M*S0RT(0«TPTMl0,M) I 
C 
C 

C********^*****® ••*•«>•••«*€**••*•*•# •••••••»••< 

c« 


c*  CALCULATE  TH£  SECONOARY  STREAM  PROPERTIES 

C®  BASED  ON  the  COMBUSTOR  TEMPERATURE 

C« 

C 

c 

XE(6>»XESP? 

XE(7>«XESR3 

IE (OEORME.EO.MF)  00  TO  101 

XE(n)«XESRl 

XE<9)»0.0 


pace  c-a; 


•LSNCS?  0650 
•IjNCS?  6660 
•LSNCS?  0670 
•LSNCS?  0660 
•LSNCS?  0690 
•LSNCS?  OTOO 
•LSNCS?  OTIO 
•LSNCS?  07?0 
•LSNCS?  0T30 
•LSNCS?  OTaO 
•LSNCS?  OTSO 
•LSNCS?  0760 
••LSNCS?  0770 
LSNCS?  0760 
LSNCS?  0790 
LSNCS?  0600 
LSNCS?  0610 
LSNCS?  06?0 
LSNCS?  06^0 
LSNCS?  3640 
LSNCS?  3659 
LSNCS?  0660 
LSNCS?  0670 
LSNCS?  0660 
LSNCS?  0ri90 
LSNCS?  0900 
LSNCS?  0910 
LSNCS?  09?0 
LSNCS?  0930 
LSNCS?  0960 
••LSNCS?  0950 
•LSNCS?  0960 
•LSNCS?  0970 
•LSNCS?  0960 
••LSNCS?  0990 
LSNCS?  1000 
LSNCS?  1010 
LSNCS?  )0?0 
LSNCS?  J030 
LSNCS?  )O60 
LSNCS?  jOSO 
LSNCS?  1060 
’"•LSNCS?  J  070 
•LSNCS?  1060 
•LSNCS?  1090 
•LSNCS?  jlOO 

•lsncs?  mo 

•LSNCS?  n?0 
LSNCS?  1130 
LSNCS?  11 AO 
LSNCS?  1150 
LSNCS?  1160 
LSNCS?  1170 
LSNCS?  1160 
LSNCS?  1190 
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AAPfNOIX  C 
SUBROUTINE  LSNCS? 


CHEMC4L  LASfO  ANALYSIS  PROGRAM  (CLAP) 
OVERLAY  LOS 


PAGE  C*>*3 


GO  TO  10? 

LSNCS? 

i?00 

101 

XF<A)«0.0 

LSNCS? 

I  ?1  3 

xf i«>»xrspi 

LSNCS? 

!??0 

10? 

CALL  VISC(6,9,XF,A,B) 

LSNCS? 

1  ?30 

CALL  CPCALC(6,9,T0,XF,GC.My> 

LSNCS? 

1?«0 

c 

LSNCS? 

1?S0 

c 

LSNCS? 

l?60 

C#*«< 

•••••LSNCS? 

I?T0 

c* 

•LSNCS? 

i?RO 

c* 

NOZ7LE  GEOMETRY  CALCULATIONS 

•LSNCS? 

I?90 

c* 

•LSNCS? 

1300 

•••••LSNCS? 

1310 

c 

LSNCS? 

1 3?0 

c 

LSNCS? 

1330 

AEAS#«i.O 

LSNCS? 

13*0 

AEASE«AFASG 

LSNCS? 

13S0 

IFlflfOMSN^CO.AX)  A$«Pl*DS«DS/*.0 

LSNCS? 

1360 

IF (GEOMSN.NE.AX)  AS*OS*MNB 

LSNCS? 

1370 

c 

LSNCS? 

1390 

r 

LSNCS? 

1390 

c**«< 

•••••LSNCS? 

IAOO 

c* 

•L3NCS? 

1410 

c» 

CALCULATE  TNF  SECONDARY  FLOy  RATES 

•LSNCS? 

1*?0 

c» 

•LSNCS? 

1*30 

c«««< 

•••••LSNCS? 

1**0 

c 

LSNCS? 

1*S0 

c 

LSNCS? 

1460 

N5N07«NSPN0Z«NPNO7 

LSNCS? 

1*T0 

XS»RL e  ( XFt‘>£,2* 0  ;  5#XFPP3 )  /  1 XF5R1  *NSN07 ) 

LSNCS? 

1*00 

ws»xS«My 

LSNCS? 

1*90 

c 

LSNCS? 

1*00 

c 

LSNCS? 

1S10 

C***1 

•••••LSNCS? 

15?0 

c* 

•LSNCS? 

1*30 

c* 

CALCULATE  THE  N077LF  EXIT  CONDITIONS 

•LSNCS? 

1**0 

c* 

•LSNCS? 

1*50 

C»** 

1*60 

r 

LSNCS? 

1*70 

c 

LSNCS? 

1*00 

HE«).0 

LSNCS? 

;*9o 

PEr.ySR.SpflT  (RBAR*T 0/MK )  /  ( AS*HM  (QCf  ME  1  » 

LSNCS? 

1600 

t*»T0/T )TM l GC .ME ) 

LSNCS? 

16)0 

VE-ME*St'RT  f9C«RBAR»TF/My ) 

LSNCS? 

16?0 

POS»PC«P9PM(OC.ME> 

LSNCS? 

1630 

c 

LSNCS? 

16*0 

c 

LSNCS? 

16*0 

1660 

c* 

•LSNCS? 

1670 

c« 

CALCULATE  THE  FRICTION  FACTOR 

•LSNCS? 

1660 

c« 

•LSNCS? 

1690 

C*** 

3700 

c 

LSNCS? 

1710 

c 

LSNCS? 

1 7S0 

IF (8C0MSN.C0.AX)  GO  TO  103 

LSNCS? 

1730 

CALL  LRLATBt*»R«0.0*LSNOZ,My,PE.TF.T0tVE,OUMMY»»E) 

LSNCS? 

17*0 

)07 


.wjr* 


,fcri« 


APPfNOt*  C  fHM»KU  LASfP  tNtUM)  (CLAP) 

SUPPOUtlNr  19NCSP  OVfPLAY  LDS 


HYOU«>,n«Of  »HNH/  (Of  ♦HNrtt 
rrLft»*,n»F»isno)r/MYn)  * 

90  TO  too 

mi  MunrKP(*»*Lo«(Tn  ♦«> 
prisons/ (Nt»*s> 
c*«t,or»to 
oo  m*  mi. icon 
Cm»F*SOPT t * . o»r * » 

CfA-0,P*P.0»ALO9'.0  (Cl t 
r»t.o/iA.o»c?»c?> 
ro»o»*«(rx«r  iMoom/c* 

tr  i*HS(rp»0«l  ,LT,9.«f-09)  90  TO  m* 
ioa  n«r 

no  to  ift* 

mi  rM.n»*.n»M»-SN07/oi 

r 

c 

. . . 

C» 

r»  calculatt  po 

c« 

. . . . . . . . . 

c 

100  Cl« »0C-1 .01 /f.o 
Cfa (OC* 1 • 0 ) /f, 0 
CYaCP/9C 
xwpal.or-io 
00  JOT  mi.lOOO 
CA«1.0-XNf 
C9»9C*XN? 

C9»C  f*X*f 

CTa| ,0«Ci*KM? 

Haf*/Ci«o*M.o<MCft/cTmrno 

hp«..<C9*oc«cai  /<c9«csi  »ci«<cr«CT-ci»CM  /(cmco) 

NfaKNf-p/HP 

fPPOP»<*MP-M?miOO.O/*PP 
iPU9Mrn«oPi,LT.i,or-oo»  «o  to  mo 

lot  XNfaHf 

90  TO  no 

109  P0P09«Sfl9T  <  < ( M.O«Cl <*P1 /Cf ) •• (CP/Cl  1 1 /Nfl 

po«popos*pos 


arColCOUTF  TmC  SCC0N0A9Y  STPCOM  PP0PCPT1C5 
MSCC  ON  TP?  WOIfLC  CXlT  TrNPCXATUBC 


cail  cpcAicmm.Tr.xc.nc.NN) 


PAfll 

C-AA 

LSNCSf 

l  TOO 

LSNCSf 

1  TOO 

LSNCSf 

1  TTO 

LSNCSf 

1  T9C 

LSNCSf 

)TO0 

LSNCSf 

|  900 

LSNCSf 

1*10 

ITNCM 

ISfO 

L«NCSf 

IPSO 

LSNCSf 

1PA0 

lsncsp 

1*90 

iTNCtr 

1990 

lincsc 

1 PT9 

LSNCSf 

1990 

LSNCSf 

1900 

LSNCSf 

IOO0 

LSNCSf 

!•!  o 

LSNCSf 

l*fO 

'••lsncsf 

1010 

•LSNCSf 

1  OA  0 

•LSNCSf 

1090 

•LSNCSf 

1090 

►••asNcsf 

**T0 

LSNCSf 

1*90 

LSNCSf 

10*0 

LSNCSf 

fOOO 

LSNCSf 

roio 

LSNCSf 

POfO 

LSNCSf 

fOSO 

LSNCSf 

fOAO 

lsncs? 

f  090 

LSNCSf 

?090 

LSNCSf 

fOTO 

lsncsf 

fOPO 

LSNCSf 

fOOO 

LSNCSf 

flOO 

LSNCSF 

flio 

LSNCSF 

firo 

LSNCSF 

flSO 

LSNCSf 

f  1  AO 

LSNCSf 

f  190 

LSNCSf 

rioo 

LSNCSf 

f  1  TO 

LSNCSf 

f  1 90 

'••LSNCSf 

fmo 

•LSNCSf 

ffOO 

•LSNCSJ 

.mo 

•t  5NCSf 

ffr; 

•LSNCSf 

ffSC 

'••LSNCSf 

1140 

LSNCSf 

ffPO 

LSNCSf 

ffOO 

LSNCSf 

f  f  TO 

LSNCSf 

ff*0 

LSLXSf 

ffOO 
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APPENOIX  f  CHEMICAL  IASFW  ANALYSIS  PPOORAM  (Cl AP» 

SUPROUTINF  LSNCSf  OVERLAY  LOS  PACE  C-A5 


f— ————  —  —  —  — . —  —  ••  —  ••——••• . —————— ————LSNCSf  F300 

C*  *LSNCSf  f 31 0 

C«  CALCULATE  THE  TOTAL  SfCONOAPY  HOLAP  flop  rates  and  *lsncs?  fSfo 

c*  EFFECTIVE  NOZZLE  EXIT  APEA  FOR  SFCONOAPY  FLOP  "LSNCSf  f330 

C*  "LSNCSf  P3A0 

C— — — • . —————— —•—•—LSNCSf  f3S0 

C  LSNCSf  fSftO 

C  LSNCSf  f  3T0 

XKMS»XS*NSNOZ  LSNCSf  f3RO 

AKMSC*AS*N$NOZ  LSNCSf  f 390 

AKMS€»AKMSC«PM(OC.ME) /PM(OE.Mf t  LSNCSf  f«00 

RETURN  LSNCSf  f«10 

C  LSNCSf  PAfO 

C  LSNCSf  f A30 

(•••••••••••••to . ..MtH»««*M»MM*#«Mt»M#..it»M*»MLSNCSJ  f  AAO 

c*  -LSNCSf  fASO 

C*  FAILURE  INDICATORS  -LSNCSf  fA6 0 

C-  -LSNCSf  fATO 

C——  ——— —————  ———————————————————————LSNCSf  fAPO 

c  LSNCSf  f  A90 

C  LSNCSf  f«00 

109  PRITC ($<f01 )  LSNCSf  P510 

00  TO  HI  LSNCSf  fSfO 

J10  PRITE (A»?Of 1  LSNCSf  fSSO 

111  PRITF(A,f03)aC.NP.XN?.Hf,FX,F,PC|FFLO  LSNCSf  fSAO 

FAIL-VES  LSNCSf  fSSO 

C  LSNCSf  fS»0 

C  LSNCSf  tSTO 

. . . . . . —————— . ••••••••••••••••LSNCSf  fSRO 

C«  *LSNC5f  f590 

C*  rOPNAT  STATFNENTS  "LSNCSf  fPOO 

C*  *L5NCSf  f A 1 0 

C— —  •——LSNCSf  ?Pf 0 

C  LSNCSf  f630 

C  LSNCSf  f*AO 

f 01  FORMAT (•l*,Tf.«CONVEPOENCE  FAILURE  IN  SURPOUTINE  LSNCSf  FOR  FX-F*)LSNCSf  f*SO 

f Of  FORMAT ( • 1 • t Tf t •CCNVFPOCNCE  FAILURE  I>*  SURPOUTINE  LSNCSf  FOP  M?»XMfLSNCSf  f*AO 

-•:  LSNCSf  T6T0 

?03  FORMAT (•0*,Tf.»OC  —  ,F 1 3.0* T38* *NP  ■•tC13.A.»  XO/KMOLE**/. LSNCSf  f6#0 

-Tf,«XM?  — •E13.6*T3A*»Mf  — .EI3.6./.  LSNCSf  f*90 

-T?t»FX  — 1£ 1 3. 6«  T3A . »F  — .E13.6./,  LSNCSf  fTOO 

-Tf,*PE  »*.ei3.O.T3p,*FFL0  —  .E13.H  LSNCSf  fTIO 

FNO  LSNCSf  ?Tf 0 
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APPENDIX  C  CHEMICAL  LASER  ANALYSIS  PROGRAM  (ClAP) 


subroutine  m»*s  overlay  lds 

PAOE 

C  — *  A 

SUBROUTINE  NAAS  (0, MINI  ,*»«;, FLOW. ERROR, MNEM.F AIL  > 

MAAS 

0100 

c 

« 

MAAS 

01  )0 

c 

MAAS 

OJFO 

o< 

••MAAS 

0130 

c« 

•MAAS 

01*0 

c» 

SURPOUTINF  (MAAS) 

•MAAS 

01S0 

c» 

•MAAS 

otoc 

C«< 

••MAAS 

0 1  TO 

c 

MAAS 

0 1  AO 

c«« 

••MAAS 

0140 

c» 

•MAAS 

OPftO 

c» 

SUBROUTINE  MASS  CALCULATES  ThE  MACn  NUMBER  (M)  BIVEN  ThE  AREA  RATIO 

•MAAS 

OHO 

c* 

(A/A*)  RV  LINEAR  ITERATION. 

•MAAS 

0M0 

t« 

•  MAAS 

0E30 

c* 

INRUT  VARTARlfSl 

•  MAAS 

0?*0 

c« 

•  MAAS 

0?30 

c* 

A AS  •  TMF  ARFA  RATIO  A/A* 

•  MAAS 

OEOO 

c« 

FRROR  ■  MAX  PFRCENT  OEVIATION  IN  MOLD  AND  MNFW  FOR  A  SOLUTION 

•  MAAS 

OFTO 

o 

FLOW  ■  CONTROL  VAR I ALRF  SUCH  THATt 

•  MAAS 

0?RO 

c» 

■  "SUB"  FOR  ThF  SUBSONIC  BRANCH 

•  MAAS 

0?«0 

c® 

•  "SUP"  FOR  THF  SUPERSONIC  BRANCH 

•  MAAS 

0300 

c« 

#  ■  SPECIFIC  HFAT  PATIO 

•  MAAS 

0310 

c» 

MINI  *  INITIAL  VALUF  OF  MACH  NUMBER 

•MAAS 

03?  0 

c» 

•MAAS 

0330 

c« 

OUTPUT  VAR I ABLFS I 

•  MAAS 

03*0 

c» 

•MAAS 

0330 

c* 

FAIL  ■  ERROR  FLAO 

•  MAAS 

0  300 

c» 

MNEW  *  final  VALUF  OF  N*CH  NUMBER 

•MAAS 

0370 

r* 

•MAAS 

03BO 

<*•« 

••MAAS 

0300 

c 

MAAS 

0*00 

c 

MAAS 

0*10 

IMPLICIT  REAL (M) 

MAAS 

0*?0 

OITA  YFS/SMVFS/.SUP/JMSUP/ 

MAAS 

0*30 

c 

MAAS 

0**0 

c 

MAAS 

0*A0 

c«« 

••MAAS 

0*00 

c* 

•MAAS 

0*70 

c» 

CALCULATE  constants 

•MAAS 

0*A0 

c* 

•MAAS 

0*00 

c«« 

••MAAS 

OSOO 

c 

MAAS 

0510 

c 

MAAS 

03E0 

01 ■ (0-1 , 0 ) /?. 0 

MAAS 

0S30 

O1T-1.0/81 

MAAS 

os*o 

0?-F,0/(«*1.0) 

MAAS 

osso 

0?I*1.0/B? 

MAAS 

0300 

0*« (0.1,0) /(?.0* (0-1.0) ) 

MAAS 

0370 

0*1*1 .0/0* 

MAAS 

03B0 

c 

MAAS 

0300 

c 

MAAS 

0000 

c»< 

••MAAS 

0010 

c» 

•MAAS 

00?0 

c« 

CALCULATE  the  supersonic  BRANCH 

•MAAS 

0030 

c« 

•MAAS 

00*0 
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APPENDIX  r 
SUBROUTINE  MAAS 


Chemical  laser  anaiysis  probram  iclaR) 

OVERLAY  LOS 


PAGE  C-47 


c*««« 

0650 

c 

MAAS 

0660 

c 

MAAS 

0670 

MOIOaMTNl 

MAAS 

06B0 

tF (FLOM,NE .SUP)  GO  TO  ? 

MAAS 

0600 

DO  1  Ja] *?0fl 

MAAS 

0760 

Cl  a (MOLD* A AS) **0*1 

MAAS 

0710 

MNFMaSORT (011*1021 »C 1-1,0)  ) 

MAAS 

07*0 

XERRORb(MNEV-MOLO) •lOfl.O/MOLD 

MAAS 

0730 

MOLDaMNEW 

MAAS 

0740 

IF (ABS(XERROR) .LT. ERROR)  return 

MAAS 

0750 

I 

CONTINUE 

MAAS 

0760 

GO  TO  4 

MAAS 

0770 

c 

MAAS 

07B0 

c 

MAAS 

0700 

c«*« 

0600 

c* 

•MAAS 

0610 

o 

CALCULATE  THE  SUBSONIC  BRANCH 

•MAAS 

oe*o 

c« 

•  MAAS 

0830 

c«**« 

0840 

c 

MAAS 

0850 

c 

MAAS 

0860 

? 

00  3  Ja 1,200 

MAAS 

0670 

Claj.0,Ol*MOLD»MOLD 

MAAS 

0680 

MNEMa(  (62»C1)**64)/AAS 

MAAS 

0800 

X ERROR ■ (HNFW-MOLD ) *100,0 /MOLO 

MAAS 

0900 

HOLO-MNEW 

MAAS 

0010 

IF (ABS(XERROR) .LT. ERROR)  RETURN 

MAAS 

09*0 

3 

CONTINUE 

MAAS 

0930 

c 

MAAS 

0940 

c 

MAAS 

0950 

C#tH 

0960 

c* 

•MAAS 

0970 

c« 

CONVERGENCE  FAILURE 

•MAAS 

0960 

c« 

•MAAS 

$990 

C*«4H 

1000 

c 

MAAS 

1010 

c 

MAAS 

10*0 

A 

MRITF <6. FLOW, G, MINI, MNEV.AAS.XERROR, ERROR 

MAAS 

1030 

FAILaYES 

MAAS 

1040 

s 

FORMAT (*l*,T2«*C0NVER6ENiF  FAILURE  FOR  •, A3, -SONIC 

MAAS 

1050 

.•BRANCH  IN  SUBROUTINE  MAAS*,/, 

MAAS 

1060 

-T?,*G  a*,E13.6,?X,*MlNI  a»,E13.6,/, 

MAAS 

1070 

-T?,«MNEV  a*,E13,6,?X,*AAS  a*,E13.6,/, 

MAAS 

1080 

-T2,«XERR0R  a*,E13.6,?X,*ERR0R  ••.EI3.6) 

MAAS 

1090 

END 

MAAS 

1100 
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APPFNO I  *  f 
SUBROUTINE  OUTLOS 


CHf«JC»L  LASTR  ANALYSIS  PROGRAM  (ClaPI 
OWE KAY  LOS 


PAGE  C-aR 


SUpPOUT INF  OUTLOS 


OUTLOS 

OUTLOS 

OUTLOS 

••OUTLOS 

•OUTLOS 

•OUTLOS 

•OUTL-S 


OUTPUT  SUBROUTINE  (OUTLOS. 


••OUTLOS 

OUTLOS 

••OUTlOS 

•OUTLOS 

•OUTLOS 

•UUTLOS 

•OUTLOS 

•OUTLOS 


SUBROUTINE  OUTLOS  PRINTS  THE  LASER  OfVICF  SECTION  RESULTS  OF 
PROGRAM  CLAP  I*  SI  UN  ITS  Ow  TERMINALS  MTTM  A  MINIMUM  OF  IT? 
CMARACTFRS  PER  LINE  4 


. . . . •••••(••••••^•(•MM.MtVM'MOUHDS 

OUTLOS 

OUTLOS 

INPLtCIT  RFAL(L.m.N)  OUTLOS 

OUTLOS 

COMMON/CCS 11/WTM?  OUTLOS 

OUTLOS 

COMMON /L PS ?/0 I.DIS.DSjOYR.  OEOMPn ■ OEOMSN.LOSS?  *  LPN07  .  LSNOJ .NSPNO? ,  OUTLOS 
-PKFRAC.PIC.T10.TTO.TTO  OUTLOS 

OUTLOS 

COMMON /LOST/ A 1 .AIAISr. A I A 1  SO . A? . A T . A 3A3SF  ,  A3A3S0 ,  A4  ,  «iS.  A6.S) .0?.  SUTLOS 
-G3,P4,RR,06,G7.LSFP.Nm1  ,MW?,Mm,MN*,MK5,HNf.,MWT,Ml  ,  M? ,  MJ  ,M*  ,  MS  .M6  ,  OUTLOS 
-NPNO?. NSN07.P l .P?.P3. PT0.PA.P5.PS0.PS. P60. RE V.RET.RFK.R1 .RlO.R?.  OUTLOS 
-R?O.R3.RTO.R*.R40.PS,RSO.R6.ROO.TI ,T?. T?C, TT.TA. Tap, TS.TS0.T6.T60. OUTLOS 
-W3M1 .MRW?.N6M?.MRM?,«3X1 .XAXF.XSX?, k  f.  I  ?  ,  X  T  X  ?  . ART?  OUTLCS 

OUTLOS 

COMMON/LOSa/AB, GP. MPA, MR 5ro, PRO. RB.R00.TR 4  TOO  OUTLOS 

OUTLOS 

COMMON/LOSS/BRFRAC . C ANGLE .MR A!F . MNP  ,t.C  AV  OUTLOS 

OUTLOS 

COMMON/LPSO/Pi’O  .PAO.PAMe1  PUTLDS 

OUTLOS 

COMMON/MAIN?/FLOM  OUTtOS 

OUTLOS 

DATA  CMOKE/SNCNOKE/.SEP/OMSCP/  OUTLOS 

OU1LDS 

OUTLOS 

»••«•••••••  ............  t>.  . . • . ••••• . .  »«OUTLOS 

•OUTLOS 

OUTPUT  INTTtAL  OATA  *OUTLOS 

•OUTLOS 

. . ..Ml. . . . . . . 

OUTLOS 


OUTLOS  09RO 

MRITE<?0.?01I  OUTLOS  09G0 

IF  <LOSS?,E3. 3MP 1 0  t  MRITE (?0.?R?)PRFRAC.CANGLE,Ol.Ol5,O3,O3S,  OUTLOS  0600 

-6EOMPN,orOMSN.MBASE.HN«,LCAV.LRNP?,LSNO2,NSPNO7.PKFRAC.P10.T30.TT0OUTLOS  0610 
!F»LDSS?.E0.3MTIO>  KRITE (?o,?03|RRFRAC.CAN«Lf .01 .0is.03.03S,  OUTLOS  06?0 

-GEOMPN.BFOMSN.MRASE ,HNR,lCAV,LPNO7.LSNO7,NSPNP7,PKFRAC.T10»T30»TT0OUTL0S  0630 
c  OUTLOS  06A0 
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APPENDIX  C 
SUBROUTINE  OUTLOS 


CNFMKAL  LASER  ANALYSIS  PROGRAM  ,tv»P) 
OVERLAY  LOS 


Eiet  c-*p 


OU7PUT  RESULTANT  DATA 


waitr <?o.?n*>Ai, 

■T1.T10 

*»B|Tt(?0.?CS14E« 
N»ITE<?0.Z06>A3. 
•  Tl.TJO.lUYl.JlSXl 
B*»ITC<??v?0Tl  A*. 

NRITE<?flj?0R)AS» 
*RITE<?P»?(m  A6. 
PRITE  <20«?1 0 ) 8?» 
IFtfLOM.EO.SEPt 

ir  ielob.eo. choke 
write  <?c*?u  >  as* 

RETURN 

write:zo.?i?i 

wRirr  <?o.?niA8. 
RETURN 

WRITE t  ?0  »  ?1*  > 


A1 A1SF,*1 A1SB.81 .NNI ,N1 ,NPNOZ.Rl*Rjn.REl.Rl,RlO. 

o?.n*?,m?,p;sp?o,b?,r?o,t?,t?o 

A  3 A  3SF  ,  A  3A 3S3 , 03 ,MW  3 ,  M3  »  NSNOZ  »  °3 , P30  «RE3  »  R3  »  R30 « 

G*,MW*,Mi ,P*.P4Q,R4,R40,T4, T40«W4W?,X4X? 
aS,NWS.NS,PS,PSO,RS.R50#T5,T30.W8W?,X3X? 
a6.NW6,M6,P6.P60,RS.R60.T6.T60.W6W?,X6X? 
MV7,T70.WTtt?,X?X? 

00  TO  101 
)  00  TO  10? 

G3.MWF  MS,PB.P80,ReB.R8.R3n,TB,T80,W8V2,  X8X? 


GA,L5FP,*WB.Mfl,PA,PnO.REB,BG.R80.Tp,T80.W8*?,X8X? 


FORMAT  STATEMENTS 


OUTLOS 

••outlds 

•OUTLOS 

•OUTLOS 

•OUTLOS 

••outlds 

OUl'LOS 

OUTLOS 

OUTLDS 

outlds 

OUTLOS 
OUTLOS 
OUTLOS 
OUTLOS 
CUYLDS 
OUTLOS 
OUTLOS 
OUTLOS 
OUt LOS 
outlds 

OUTLOS 
OUTLOS 
?  OUTLOS 
UUTLOS 
OUTLOS 
OUTLDS 
OUKDS 
••outlds 
•outlds 

•OUTLOS 

•OUTLOS 


FORMAT  I  '  * • t  Y?  F  ««L 'SER  DEVICE  SECTION*f //,T*P ,*INIT|AL  OATA«»> 
FORMAT (•<!•«  T  3?« •PMFRAC  *• .E i 3 . 6 . TT 6 « *CA*«LC  ■•»El3.6?»  RAD»»/t 
-T3?,**0i  ••,clJ.6.»  M*,T6«i*0)S  ■•.ti*. 6*°  M*./. 

-Tjfv»03  ■»•»!■  13. C  .•  M«,T68,*03S  ■•»EI3»8t*  M*»/» 

-V3?.»8E0MPN  **)A1 J«T 66 • oSEOMSN  ■•,*13,/, 

-T.3?,«M0ASE  «*.El3,A,*  N*,T66,»tNR  ■  *,F13,6,'>  M*,/, 

■T 3?* *LCAV  ■••E)3.6.«  M*,T66»*LPN0Z  ••'F13.6,*  M*,/, 

-T3?.'LSN0T  ••*E 1 3.6t*  Mo,T66.«NSPK07  •s«,El3,*./t 

“TS?t «f*KFRAC  ■*,E13.6,T66,»P18  ■•.E13.6,*  PA»,/. 

-T3?,*T3Ci  «*.E13.6.»  K**T66*»T70  ■•,E13.6,«  F«> 

FORMAV(#o»#T3?»*BRFRAC  ••,E13,6.T66,«CAN8LF  ••*£13.8**  RAO*,/, 

T3E,*3;  ■•♦ET,i*,«  M»,T68,*D1S  ••,E13.8>*  M»»/t 

-T3?.*’0r'  •'.FU.Ai*  N»,T68*«03S  ■•,E13.6,-  M»,/, 

-T3»,i(r0MpN  *• , A i 3.T66, *8E0H5N  ■•,A1'*,/, 

-T3?,*HR»SE  •'*  JE13.8,*  M*,T66.»MNB  -••FIS. 6.*  M**/. 

-T3E««LCAV  •••F13.6.*  M*,T66.«LPN0Z  ■«,E1?,6.»  M*,/, 

-T3?,*LSN0?  ■••E13.6,*  M«,T66,*NSPN0Z  -•,F13.6,/. 

'T3?,*RKFRAC  ■•.E13,8,T*8,*T10  ■•,Cl3.6,»  *•♦/. 

:3?«*T30  •••E13.6,*  K«,T68,»T7(1  ■••E13.6,*  *•) 


T3E,«3;  «•,£'.' ,i>, i  m*,786,*D1S  ••,E13.6»»  M»./.  OUTLDS 

•  T3?.*'0r'  •^'.ri3.8,»  N«,T66,*03S  ■•,E13.6,-  M»,/,  OUTLOS 

*T3»,MF0MPn  • A i 3 . 766, •OEOhSN  ■•,APt/,  OUTLDS 

»T3?,*HR»SE  '<•  -.E13.6,*  M*,T66.»MNB  -••F13.6,*  M**/.  OUTLOS 

-T3E««LCAV  •••F13.6.*  M*,T66.«LPN0Z  ■«,E1?,6.»  M*,/,  OUTLDS 

-T3?,*LSN0?  ■••E13.6,*  M«,T66,*NSPN0Z  -*,713.6./,  OUTLDS 

'T3?,*RKFRAC  ■*.E13.6,T66,*T!0  ••,Cl3.6t»  *•♦/.  OUTLOS 

:3?.*T30  •••C13.6,*  K«,T66,»T70  ■••F13.6,*  *•)  OUTLOS 

FORMAT  1*0*, T59. •RESULTANT  OAT A I • , // , T?3 , -POINT  1  PRIMARY  NOZZLE  EOUTLDS 
-X1T  -  CONDITIONS  BASED  ON  THE  NOZZLE  STA8NATI0N»,/,T3Z*» (COMBUSTQROUTLDS 


OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLOS 

OUTLDS 

outlds 

OUTLDS 

OUTLOS 

OUTLOS 

OUTLDS 

OUTLDS 

OUTLOS 

OUTLOS 


iSSifikASi! 


SUAROUTlNf  outlos 


,:hFMJCAL  LASER  ANALYSIS  RR06R4N  I  CL  » 
OVERLAY  cos 


RARE  c-sa 


.)  TEMPFOATURE •.//. 
-TJZ.*A)  ■*.£!?. 6 

-t)?.**i*isg  ■  *.fi.*u6 

-T3?.»**wt  ■  • « f  1  3.6 

-T3z,«NPnOZ  "*.E13.6 
-T 3Z.*P]  0  •*.E13,6 

-T??,*PJ  ■•.F13.6 

-T3?,*Tl  ••.E13.6 

i'CiPNAT  (•0».T?3*«POJMT 
-  ThF  NOZZLE  EXIT*,/.T 
-T3?,»AZ  ■*.F13.6 

-T3?,  *Nnz  ■••F13.6 

-TJZ,*R?  ■  • « E  1  3 . 6 

•  T  3Z«  *P?  -*.E13.6 

-T3Z,*T?  ••.F13.6 

format (•o*,tz3.*point 
-on  t*f  nozzu  staonat 
-T3Z.**3  -*.F13.6 

-T3Z,*AJA3S8  ••♦F13.6 
-t3j,»M*3  ••♦E13.6 


-T3?,«NSN0Z 

-T3?,*P30 

-T3?,*P3 

-Tj?,.T3 

-T3?,*A3A1 


•••E13.6 
•• ,E 1 3.6 
**.F13.6 
«*.F13.* 
**.F1 3,6 
•  *.F 1 3. A 


FORMAT  I* 0*.TZ3. ‘POINT 
-ON  TMt  nOZZLF  EX  IT* « / 
-T3?,**A  k*.Fi3.6 

-T3?,*HRA  •••FI3.A 

-T3?,*Pa  ■*»E13.6 

-T3F.*»a  •*,fl3.6 

-T3Z.*Ta  «’.E13.6 

-T3Z,*Nay/  ■••E13.6 
FORMAT  (•I»»T?3#*Pf'sNT 
-T3?.*Aa  a*,E13.6 


-T3Z.*naa 

-T3?.*PS 

-T3Z.*«a 

-T3?,»Ts 

■Tjj.ns*? 


■*.£13.6 
••.E13.6 
••.E13.6 
«M13.» 
■••E 1 3.6 


FORMAT (»0*. T23.*POI NT 
T3?,*Aa  *E 1 3. A 


-T37.*mra 

-T3?.*Pa 

-T3?,*RA 

-T3?,*Ta 

-T3?,*NAN? 


■••E13.6 
■*,El 3.6 
■  ••El  3.6 
■••F13.6 
•••EI3.6 


1  — -**-**»•*» 

FORMAT («0*.T23.*POINT 
T3?,*GT  «*.E13.6 
T3?.*T70  •••E13.6 
T3?,*XTX?  •  ••E',3.6 
FORMAT ( »0* • TZ3 • *POINT 
T3?.*Aa  ■• «E 1 3. A 
■T3?,*Mwr  ■• «E 13.6 
T3?,*Pr  ■•.FIS. A 


OUTLOS 

••  S-M?/K«0LF*.TA6.*AIAISF  ■•.E13.6./,  OUTLOS 

,T66,*81  ■•.E13.A,/.  OUTLOS 

,•  A8/AM0LE •  . T A6 . •** l  »*»F i  3.6*/.  OUTLOS 

.•  S/KNOLF»,TAA,*P!  ■*.ti3.6»*  PA»,/,  OUTLOS 

,•  PA»,T6A.«RFl  •*,F13.6,/.  OUTLOS 

.•  KO/M3«,Taa.»R10  ■••E13.A.*  A8/M3*,/,  OUTLOS 

,•  A* . T 66 . *T 1 0  ■*,F13.6,«  A*)  OUTLOS 

?  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  RASFO  ONOUTLOS 
3? « -TEMPERATURE • « // .  OUTLOS 

••  S-MZ/AM0LE*.T66,*G?  ••.E13.6./,  OUTLOS 

,•  ks/kMOLE**Taa.*n?  ■•.F13.6,/,  OUTLOS 

.•  R A* , T66»  *R?v  ■•.E13.6**  PA*,/,  OUTLOS 

.•  A8/M3«,T66,»«?0  •••EIS.6»*  tR'MS*./,  OLiTLOS 

•  *  !t*.T66.*T?P  ■•,F1S.6,»  A*)  OUTLOS 

3  SECONDARY  NOZZLE  FlIT  .  CONDITIONS  RASED  OUTLOS 

1  ON* ./.IS?.* I COMRUSTOR )  tcmreraTure • . // »  OUTLOS 

.•  S-MZ/AMOLF*  »TA6«<-ASA3SC  ■•.E13.A,/,  OUTLOS 

•  T  AA « *03  •• »E 1 3, A. / •  OUTLOS 

.•  K6/KM0LE*.TaA.*N3  °*»fi3.6,/,  OUTLOS 

.•  f./RM0LF**TA6»'*P3  ■•«£  1  3.6,*  R A« ,  /  •  OUTLOS 

•  •  P A* , T  A6 . *RF  J  ■*,E13,6./.  OUTLOS 

«  KO/M3*.TAA,*R30  «*.E13.A»*  A0/N3* , / ,  OUTLOS 

.*  A • , T 6A * *T 30  •*»F13»6.*  A*,/,  OUTLOS 

.Tf.6,*X3*l  •••ElS. A)  OUTLOS 

A  SECONDARY  NOZZLF  EXIT  -  CONDITIONS  KASEO  OUTLOS 

»T3?.*TEMRERATURF*«//,  OUTLOS 

•  •  S-NZ/AMOLE*. T  A6»  *8a  ■*,E13,4,/.  OUTLOS 

,•  A6/AM0LC • iTfc6.*N*  ■•.E13.W,  OUTLOS 

,*  R A* * T 66. *PAO  ■*,E13.6»*  RA*,/.  OUTLOS 

.•  AG/M3* , T 66. *R*C  ••♦€! 3.6  >•  A6/^3*,/.  OUTLOS 

.*  A • , T 66. *TAO  ■*,FI 3«6» •  A*./.  OUTLOS 

.T66.*XAX?  a*,C 1 3.61  OUTLOS 

5  CONSTANT-AREA  Nix  I  NO  RCRIPN  EXIT*,//,  OUTLOS 

.*  S-NZ/AMOLE* . T 66 • *8*  ■*jEI3.6./.  OUTLOS 

,•  A8/KM0LE  *  *  T  66,*NS  ••♦ESS. A,/.  OUTLOS 

,*  RA»  «  T66. *P SO  ■• ,E 1 3,6. •  PA»,/,  OUTlOS 

,•  A8/M3*.T66.*RS0  ■*.EI3.6»*  K8/N3*./.  OUTLOS 

,*  K» , T 66 . *TSO  •••F l 3.6.*  A*,/,  >U . 

, T  66 • *  XSXZ  -••CIS. 6)  OUTLOS 

6  isentroric  expansion  rcripn  exit*,//,  outlos 

••  S-NZ/AMOLE*»T66.*86  ■•]E13.6,/,  OUTLOS 

,•  K8/KM0LE* . T66 . *N6  ■••FI3.6,/,  OUTLOS 

,*  PA*,T66,*P60  ••.E13.6.*  PA*,/,  OUTLOS 

.»  a6/M3*,T66,*R60  ?»*«C13.6»*  K8/NJ*,/,  OUTLOS 

,*  A*,T66.*T60  ■••El  3.6, •  K*»/.  OUTLOS 

.T66.*X6XZ  ■••£13. 6)  OUTLOS 

T  MIRROR  PURRE  CONDITIONS*,//.  OUTLOS 

,T66,*MHT  ■*.E13.6«*  A8/AM0LE *■ ,  / ,  OUTLOS 

,*  K*,T66,*RTNZ  ■••E13.6,/,  OUTLOS 

OUTLOS 
OUTLOS 
OUTLOS 
OUTLOS 
OUTLOS 


P  LASER  CAVITY  EXIT*,//, 

•  S-NZ/AMOLE  *,T66.*8A  ■•,E13.6,/. 

•  A8/KM0LE*,T66,*NR  ■*»ri3.6,/» 

•  PA  •  ,  T  66  *  *P60  •*.F 1 3.6, •  PA*,/, 


r 


APBfN  f>»»  C 
SUBBOUT  INF  OUTIPS 


CnBHICAL  LASCP  ANALYSIS  PBOBBAN  tClt»> 
OVfBtBT  LOS 


PAOC  C-Sl 


-TV,.«*r»  •  •♦Bl3.ft.TBA.MB  RS/B3*./.  OUTtO*  IT' 

.TSA.Mftft  ••.B13.A.»  Kft/N3».Hft.«T|  ■*>(!),«••  *•»/,  OUTLDS  11 

-T3B.»Tao  ■•.Fl3.ft.»  K*.T«ft,MtN?  OUTLDS  IT 

-T3P.MAIB  ■•.B13.AI  OUTtOS  IT 

fit  fobmbt (•o*«t?.t»*habnibai  tmc  cmity  blob  nab  sbbabatbo.  all  bubthoutlds  it 
-ffi  BBSijlTS  Should  BE  IiSEO*»/»T3B.*NJYm  CAUTION.*)  OUTlDS  IB 

?13  FOBNAT  (*#«,TB3»MOSNT  ft  LBSPB  CAVITY  C* IT*.//.  OUUDS  1*1 

-T3P.MA  ■••£13. ft.*  S-NJ/«BOLe».T*B»»*B  ■••CIS, A,/,  OUTLDS  It 

-Y3t.*cB£P  ••.Fl3.6.«  N».TAB»»NBft  ••.B13.B.*  BO/BHOLB**/*  OUTlDS  It 

-T3?.*Nft  ■  •.£ 13.ft.TAA.Mt  ••.C13,A.«  B4* OUTLDS  It 

-T3J.MAO  ■••F13.A.«  ftA*,Tft6,»ftFA  ■••BIS.*./*  OUTLDS  !»' 

-T3?.»Bft  ■•.F13.A,*  Kft/N3«,T*ft.*BtO  ■®»C13.4.#  Rt/B3»*/»  OUTLDS  |B 

-T3B.»T»  ■••B13.A.«  R*« T6t« *TBS  »*.B13,A**  **«/*  OUTlDS  IB 

-T3P.«BBWB  ■  •.BlS.A.Tftft.MftX?  ■• »C 1 3 , A)  OUTLDS  It 

j>)«  FORMAT  (•()•« T?3 » ’BARN IN8  t  THE  CAVITY  BLOB  NAS  CHORCO,  ALL  BuBThCB  OUTLDS  IB 
-CALCULATIONS  MAVF»,/,1 J?,*BCEN  D ISCONT INUBO* l  OUTlDS  1* 

fNO  OUTLDS  |B| 


appendix  c  chemkol  laser  iniums  moimn  iclapi 


SUBROUTINE  VISC  OVERLAY  LOS 

PASS 

c-s? 

SUBROUTINE  VISC|NS1.NS?.XF,A.B| 

vise 

0100 

C 

VISC 

one 

C 

vise 

0120 

C»* 

►•vise 

0130 

C» 

•vise 

0140 

C* 

VISCOSITY  CALCULATION  SUBROUTINE  (VISC) 

•  VISC 

0130 

C« 

•VISC 

0106 

C«* 

••vise 

0 1  TO 

C 

VISC 

01  AO 

c«« 

»••••< 

••vise 

01  BO 

c» 

•VISC 

0200 

c« 

SUBROUT I NE  VISC  CALCULATES  A  RELATIONSHIP  AON  THE  ABSOLUTE 

•vise 

0210 

c* 

VISCOSITY  OF  OAS  MIXTURES  AS  A  FUNCTION  OF  TEMPERATURE .  THIS 

•vise 

0220 

c* 

RELATIONSHIP  IS  OF  ThF  FORM) 

•vise 

0230 

c« 

•vise 

0240 

c* 

ALOB(MU)mA*ALO«(TI»R 

•VISC 

0230 

c* 

•vise 

0200 

c* 

INPUT  VARIABLES  1 

•vise 

O2T0 

c* 

•VISC 

0200 

c« 

NSl  •  00  LOOP  LINIT 

•VISC 

02B0 

c* 

NS?  •  DO  LOOP  LIMIT 

•VISC 

0300 

c« 

XF  ( I  1  ■  NOLF  FRACTION  OF  TMf  t-TH  SPECIES 

•VISC 

0310 

c» 

•visc 

03?  ) 

c« 

OUTPUT  VARIABLES! 

•VISC 

03  >n 

c* 

•VISC 

03' 0 

c* 

A  ■  SLOPE  t  ALOfl (N«S/NJ ) / ALOB ( F ) 1 

•VISC 

0  JoO 

c* 

R  «  INTERSECT  t ALOO (N-S/M?) 1 

•VISC 

0300 

e* 

•VISC 

03TO 

c« 

NOTE!  ALL  CALCULATIONS  ARE  PFRFORNEO  IN  Si  UNITS. 

*VISC 

0380 

o 

•visc 

03B0 

c«« 

••vise 

0400 

c 

visc 

0410 

c 

Visc 

0420 

IMPLICIT  REAL (HI 

visc 

0430 

REAL  NUN 

visc 

0440 

01  MENS  I  ON  MU  ( 1 1  »  1 S )  •  MM  ( 1 1  I  .  XF  <  1 1 ) 

visc 

04S0 

c 

VISC 

0400 

DATA  hn/ 

VISC 

04T0 

c 

cfa  f?  f  mf 

OF 

VISC 

0400 

•  SR. BOAT.  37.9060*  18.4984.  20.0064,  ?1 

.0125 

t  VISC 

0400 

c 

HE  N?  0?  M? 

D 

VISC 

0300 

-  4.00260.  20.0134,  4 , 0?8?0 .  2.01394,  2. 

01410 

.  visc 

0310 

c 

H 

VISC 

0320 

-  1.00797/ 

VISC 

0330 

c 

VISC 

0340 

c 

VISC 

0330 

c«< 

••vise 

0300 

c* 

•VISC 

05T0 

c* 

HU  VALUES  ARE  STORED  IN  UNITS  OF  (1.0F«07  N.S/N?)  AND  TABULATED  BT 

•VISC 

0580 

c* 

TEMPERATURE  (ROM)  from  300  R  TO  3160  R  IN  INCREMENTS  OF  200  R 

AND 

•VISC 

05B0 

SPECIES  (COLUMN), 

•visc 

0800 

c« 

•visc 

0810 

c* 

VISCOSITY  OATA  mas  TAKEN  FROMI  NASA  TECH  REPORT  R-132,  TARt,C 

III 

•visc 

0020 

c* 

EXCEPT  THAT  VALUES  FOR  D?,  OF,  AND  0  MERC  CALCULATED  FROM  DATA 

FOR 

•VISC 

0630 

c* 

N?,  HF,  AND  M  ASSUHIN8  THE  VISCOSITY  TO  BF  PROPORTIONAL  TO 

THE 

•Visc 

0040 

116 


APPEN01*  C 
SUMOUT INC  VtSC 


CHEMICAL  LASE*  ANALYSIS  PP06PAN  iCtAH 
OVEPLAV  LOS 


PAM  C-53 


C*  SOUAPf  Poor  OF  TmE  MOLECULAP  Vf IPHT  PATIO.  »VISC  0630 

C •  »VISC  0*60 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••VISC  HTO 

C  Vise  6*0 

e  vise  o«*o 

OAT*  ( (MUtl.JI • !•) .01 ,J«t ,151/  Vise  OTOO 


cf* 

n 

r 

176.7. 

236.1. 

213.T 

m.r. 

346.0. 

313.0 

*36.3. 

304.0 

)H.«. 

M6.*< 

467 . 4 

ASS.*. 

5*0.5,. 

333.3 

636.3. 

303.8 

SSA.O. 

T10. 6. 

651.0 

*00.3. 

TOO.T, 

706.3 

643.0 . 

*40.4. 

760.2 

6*0. 0. 

80V . 1 . 

•  11.6 

T31.S. 

031.0, 

•61.1 

772.3. 

1004.0. 

000.0 

•12.2. 

1936.3. 

033.6 

«50.§, 

1106.4. 

1000.* 

a**.*. 

1133.2. 

1043.0 

DATA  < IMUU.J) ,I«10.1 
C  OH 


HF 

OF 

HE 

N2 

123.3, 

131.0. 

203.0. 

177.7 

206.2, 

213.2. 

2*3.3, 

232.7 

277.3, 

204.3, 

332.2, 

313.6 

330.0, 

346.0, 

414.2. 

371.0 

306.6, 

403.6. 

471.4, 

422.7 

*48.3, 

*33.6. 

323.1, 

471.8 

406.0, 

304.3, 

373.8, 

317.0 

342.2. 

540.0, 

624.3, 

361.7 

383.2. 

303.3. 

670. 7, 

603.7 

626.3, 

634.0. 

713.4, 

6*4.0 

666.2, 

6*1.*. 

73*. 6, 

6*3.0 

704.3, 

T21.0. 

800.3. 

720.8 

741.4, 

73*. 7, 

•41.3. 

T37.3 

777.2, 

703.4. 

8*0.0, 

703.3 

•11.8, 

030.8 i 

010.7, 

828.1 

> *J«1* 

131/ 

02 

M2 

vise 

0710 

126.1, 

60.2, 

vise 

0720 

IT*. 3, 

126.1 , 

vise 

0730 

221.6, 

136. *. 

vise 

0740 

2*0. *. 

1*4.3* 

vise 

0730 

207,6, 

210.3* 

vise 

07*0 

331. *• 

234.7* 

vise 

OTTO 

364,0. 

237.3* 

vise 

07*0 

304.7, 

270.2* 

vise 

OTOO 

424.1, 

300.0* 

vise 

0800 

432.3, 

320.1* 

vise 

0810 

ATO.a, 

330.4* 

vise 

0*20 

306.3, 

338.2* 

vise 

0*30 

332.1, 

376.4* 

vise 

0840 

337 , 1 « 

304.1* 

vise 

0*30 

381.7, 

411.3/ 

vise 

0860 

vise 

0*70 

vise 

08*0 

-  103.0. 

74.0, 

vise 

0*00 

-  147.3, 

loo  .;•* 

vise 

0000 

-  1*3.6. 

120.0, 

vise 

0010 

-  216.3, 

133.0. 

vise 

0020 

-  246.2, 

174.2. 

vise 

0030 

*  274.2. 

104.0* 

vise 

0040 

-  300.*. 

212.*. 

vise 

0030 

-  326.1. 

230.7* 

vise 

0060 

247.*. 

vise 

0070 

-  373. T, 

264.4, 

vise 

0080 

-  306,2. 

280.3* 

vise 

oooe 

•  4 1  £  •  1  • 

203.8. 

vise 

1000 

-  430.3. 

310.0, 

vise 

1010 

-  460.1* 

323.3* 

vise 

1020 

-  4*0.3. 

330.8/ 

vise 

1030 

C 

vise 

1040 

c 

vise 

1030 

•••vise 

1060 

c« 

•vise 

1070 

c* 

CALCULATE  THE  A8S0LUTE  VISCOSITY  OF  THE  HIXTUPE.  PtFl  *IPD, 

•vise 

}080 

c» 

STEVAPT,  A  LI*HTFOOT,  P,24, 

•vise 

1000 

c* 

•vise 

1100 

c*«< 

•••vise 

mo 

c 

vise 

.120 

c 

vise 

1130 

SX»0 • 9 

vise 

1140 

SX2-0.8 

Vise 

1130 

SY.0,9 

vise 

1160 

SXVaO.O 

vise 

1170 

00  103 

*■1.13 

vise 

11*0 

SUMI-O, 

0 

vise 

1100 
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SUBROUTINE  VISC  OVERLAY  LOS 

(CLAP) 

PAGE 

C-54 

DO  102  I *NS I «NS2 

VISC 

1200 

sunj«o.o 

VISC 

i210 

no  i o 1  j«nsi.ns? 

VISC 

1220 

R1«MV(II/MV(J) 

VISC 

1230 

R?*MU(I,K)/MU<J,K) 

vise 

1240 

C*1 ,0»SORT (R2/SORT  < R 1 1 ) 

VISC 

1250 

PHI«C*C/SORT(B.O*(1.0«R1) ) 

VISC 

1260 

DEN«XF(J)*PHl 

VISC 

1270 

101  SUM J«SUM J*OEN 

vise 

1260 

NUMbXF ( | ) *MU ( I  •  K ) 

VISC 

1290 

OIV-NUM/SUMJ 

VISC 

1300 

102  SUMI *SUMI *01 V 

VISC 

1310 

mumix*sumi*i.oe-oT 

VISC 

1320 

C 

VISC 

1330 

C 

VISC 

1340 

►••••vise 

1350 

c* 

•  VISC 

1360 

C*  PERFORM  a  linear  least  SOUARFS  fit  FOR  AL00(MUMIX> 

AS  A  FUNCTION 

OF  *VISC 

1370 

C*  ALOfi (T). 

•vise 

1360 

c* 

•vise 

1390 

►••••vise 

1400 

C 

VISC 

1410 

c 

VISC 

1420 

T«1 0  0.(1*  (FLOAT  00*2.0'  1.0) 

VISC 

1430 

X«ALOO(T> 

VISC 

1440 

Y*AL06 (MUMIX ) 

VISC 

1450 

SXaSX«X 

V  sc 

1460 

SX2«SX?*X*X 

V  sc 

1470 

SY-SV*Y 

Vi  sc 

1480 

103  SXY«SXY«X*Y 

VISC 

1490 

A»(15.0*SXY-SX*SY)/(15.0*SX2-SX*SX) 

VISC 

1500 

B-(SY/i«5.0)-A*(SX/15.0> 

VISC 

1510 

END 

VISC 

1520 
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APPFNPIX  n 

PROOR**  PR5 


CMFMJCAL  l ASf  R  ANALYSIS  PROGRAM  (CLAP) 
OVERLAY  PRS 


PA61  0-  l 


PRS 

OVFRLAY (PRS.3.0)  PRS 

PROGRAM  PPS  PRS 

C  PPS 

C  ..•••••••••••••••••••••••••••••••••p*s 

C»» . »PB« 

PRESSURE  RECOVERY  OVERLAY  (PPS) 

C»  •••••PPS 

(■••••••••••••••••• . . . •••••••••  pps 

C  . ..•••••••••••••••••••••••••••••PPS 

f •••••••••••*••••*••••••••••*•••••••••  «PBS 

5:  OVERLAY  PPS  CONTROLS  THl  PRESSURE  RECOVERY  CALCULATIONS  FOR  PROGRAM  .PM 

C»  CLAP.  *PRS 

£*  GFNFRAL  NOTATION  SCHEME  *pR| 

i:  A  ,  AREA  PER  FMOLE/S  OF  LASER  PRIMARY  FLO-  CS-M7/KM0LM 

C*  G  «  (GAMMA)  SPECIFIC  MEAT  RATIO  »PRS 

C*  M  |  MACH  NUMRER  «PRS 

C*  MM  I  MOLECULAR  NEIOHT  (KP/KMOLCl  *PRS 

c»  P  I  PRFSSURF  l PA  1  »RRS 

C«  R  I  OFNSITY  IKG/M3J  >PPS 

C»  T  I  TFMPERATURE  1*1  «PRS 

C*  ¥  I  MASS  FLOP  "*TE  CFO/SJ  #pR5 

c»  X  I  MOLAR  FLOM  RATE  C KMOLE/S 1  apM 

C*  RfPEATEO  LFTTE RS  INOICATF  RATIOS.  *PRS 

C*  FXAMPl.Fl  A?A1  •  AE/A1  *PRS 

cl  variarlfs  arf  designated  as  to  location  by  the  folloming.  ;p»s 

c»  *PRS 

c«  POINT  1  I  LASER  CAVITY  EXIT  «PRS 

c •  POINT  ?l  NORMAL  SHOCK  DIFFUSE*  EXIT 

c*  POINT  31  SUBSONIC  OIFFUSFR  EXIT  *PRS 

C*  POINT  A I  EJFCTOR  SECONDARY  NOZZLE  EXIT  .PRS 

c*  POINT  51  EJECTOR  PRtMARY  NOZZLE  EXIT  #pRS 

c*  point  ri  ejector  mixing  tube  exit  #pRS 

1:  ekj;  sr^«?S'ss:.K,i..« <«»  «« •*-«*  :::i 

f:  ^  •;« 

cl  variables  not  follomino  this  SCMFME  ARr  DEFINED  as  REOUIRED.  *PRS 

c«  . . 

<;•••••*•*••••••*•••*•*•••••***•••••  PRS 

C  PRS 

C  v>RS 

IMPLICIT  REAUL.M.NI  PPS 

C  PRS 

COMMON /LCS1 /CCSS1  PRS 

C  PAS 

COMMOM/LOSA/A! *01 *MM1 «MI .PI »P' 0*R1 «RlO»Tl ,T 10  pRs 

c 


oino 

QUO 

0170 

one 

01*0 

oiso 

01  AO 
01T0 
0 1  AO 
0140 
0700 
0710 
0770 
0730 
07*0 
07*0 
07A0 
07TO 
0700 
0740 
0300 
0310 
0370 
0330 
03*0 
03*0 
0300 
O3T0 
0300 
0340 
0*00 
0*10 
0*70 
0*30 
0**0 
0**0 
0*«0 
0*70 
0*00 
0*40 
0*00 
0*10 
0*70 
0*30 
0**0 
0**0 
0*00 
0*70 
0*00 
0*40 
0600 
0610 
0670 
0630 
06*0 
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CHEMICAL  LASER  ANALYSIS  PROORA*  (CLAP) 
OVERLAY  PRS 


PAGE  D-  2 


COMMON/MAIN1 /EA I L 

PRS 

0650 

r. 

PRS 

0660 

COMMON /PRSl/PRSSl 

PRS 

0670 

c 

PRS 

0680 

COMMON/PBS?/  ?,A3,A*,AT,ETA23.ETA67,G2.Q3.6*«&6.87,MV2,MW3.MV4» 

PRS 

0600 

-MV6.NV7.M2,*'  ,M4,M6.N7,P2,P20,P3.P30.B4*P40.P5.R6,P60.P70*R2.R20, 

PRS 

0700 

-R3.B30,R*,R4s;,RS,B50«R6.P60.R7,B70.T2.T20.T3,T30.T4.T40.T3.T6,T60 

.PRS 

0710 

-T7,T70.V2Vi,*3Wl,W4Vl,V6Wl cV7Vl«X?Xl.X3Xt,X4Xl,X5Xi,X6Xi.X7Xl 

PRS 

0720 

c 

PRS 

0730 

C0MM0N/PRS3/A3A2,A7A6.ET*12,LIMIT,MV5.P7,7'n 

PRS 

0740 

c 

PRS 

0750 

COMMON /PRS4/A5 • A6 • MS , VS V 1 

PRS 

0760 

c 

PRS 

0770 

COMMON /PPSS/EJECT 

PRS 

0T80 

c 

PRS 

0790 

COMMON/PPS6/G5.P50 

PRS 

0800 

c 

PRS 

0810 

DATA  R8AP/8i31434E*03/ 

PRS 

0820 

DATA  CAE/3MCAE/,f!0/2HNO/,SSE/3HSSE/ a YES/3HYFS/ 

PRS 

0930 

c 

PRS 

0840 

c 

PRS 

0850 

c**« 

•PRS 

0860 

c* 

•PRS 

0870 

c* 

GAS  DYNAMIC  FUNCTIONS 

•PRS 

0880 

c* 

•PRS 

3890 

c**< 

•♦PRS 

3900 

c 

PRS 

0910 

c 

PRS 

0920 

TOTM(8.MJ«1.0*0.5*IG-l.fl»*M«M 

PRS 

0930 

P0PM(8.M)-TOTMC,M)**IG/<G-1.0n 

PRS 

0940 

VMfO,M)-H»SQPT(3*T07M(fltM) ) 

PRS 

0950 

RHO(P,T,MW)«P*MV/(R8AR*T) 

PRS 

0960 

c 

PRS 

0970 

c 

PRS 

0980 

C**»o* •  4*e***»*PRS 

0990 

c* 

•PRS 

1000 

c« 

READ  INPUT  DATA 

•PRS 

1010 

c* 

•PRS 

1020 

►•PRS 

1030 

c 

PRS 

1040 

c 

PRS 

1050 

CALL  INPRS 

PRS 

1060 

IF  fEJECT.ro. NO!  80  TO  206 

PRS 

1070 

IF  ilDSSI.EQ. YES)  PRSSl-YES 

PRS 

1080 

IF (PPS51 .EO.NO)  80  TO  104 

PRS 

1090 

IF (EJECT .EQ.SSE)  60  TO  102 

PRS 

1100 

c 

PRS 

1110 

c 

PRS 

1120 

'•PRS 

1 1 39 

c* 

•PRS 

1140 

c« 

NORMAL  SHOCK  DIFFUSER  CALCULATIONS 

•PRS 

1150 

c» 

•PRS 

1160 

c** 

**PRS 

1170 

c 

PRS 

118C 

c 

PRS 

1190 

XPPfNOlf  o 
P»06»AB 


CHtMlCit  t*S?P  ANALYSIS  P»0<JBA*  ,CLaP, 
OVtPtAT  PBS  ”-LAP( 


C 

c 

r*< 

c* 

c» 

c» 

c*« 

c 

c 


**?•** j 

f?«p?Bl*PJ 

p?o»*?npjo*?iP 
T?»T?Ti*TJ 
J?O»T?pT*0*T10 

p,?e*PM(1(p?0,T20  „,w? 
*?*l»i.n 
*?*f  I  *1,0 


»*A<tt  0-  J 


330310) 


SUBSONIC  Diffuse*  CALCULATIONS 


]^J[»iL?ro!vefjAao?fo3|*or?,,,30P?e,T:5T?*T3,,r?®»jrT>*?s,fArL> 

5jr«e? 

M*3»*l¥? 

P3«P3Pp*B? 

PJ0*P30PP0*PP0 

T3»T3Yp*Tp 

T30»T3oT?0*T?P 

»3.»H0(P3,T3,*¥J) 

B30*BhO<P30,T30,NW3> 


C 

C 

C* 

C* 


"3B1“*»?¥1 
*3*l«XPKl 
i£.,5i?FCT,F0,c*c>  60  TO  10} 


PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

***PBS 

•PBS 

•PBS 

•PBS 

'••PB$ 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 

PBS 


c« 

c* 

c*»» 

SUOOfN  ENL ABOFMfNT  CALCULATIONS 

•PBS 

•PBS 

c 

•BBS 

c 

ioi 

**•6.3 

PBS 

PBS 

P*0«P30 

PBS 

7A0«T30 

PBS 

“441»4341 

PBS 

a'4X1«X3X1 

PBS 

c 

PBS 

c 

PBS 

c*«*« 

PBS 

PBS 

1300 
IPIO 

ippo 

UJO 

mo 

IPSO 

t?60 

1?30 

mo 

1P40 
1300 
13)0 
13P0 
1330 
I  Ho 
1 3S0 
1300 
1330 
13B0 
1340 
>400 
M10 
HPO 
1430 
14*0 
1450 
1 460 
1*30 
1460 
1*40 
1S00 
H10 
1SP0 
1530 
1 540 
1SS0 
1560 
1530 
JMO 
1**0 
1*00 
1*10 
16P0 
1*30 
1640 
1*50 
1*60 
1*30 
1*60 
1 640 
1300 
1310 
13P0 
1330 
1 3*0 
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CHEMICAL  LASER  ANALYSIS  PROftRAH  (CLAP) 
OVERLAY  PRS 


'E  0-  4 


c» 

•»> 

SO 

c* 

OPTIMUM  CONSTANT-AREA,  SUBSONIC-SUPERSONIC  EJECTOR  CALCULATIONS 

ap 

,  760 

c* 

•PA 

i  770 

••PRS 

)  TOO 

C 

PRS 

17*0 

c 

PRS 

1000 

MW9MW4«MVB/MH4 

PRS 

1810 

PSOP40aP30/P40 

PRS 

ie?o 

ptpao*pt/pao 

PRS 

)830 

TSOTAO»T50/TAO 

PRS 

1 840 

CALL  CAEOS (A7A6. 64, 05. *93**4, PS0P*0.PTP*0,TS0T40,A8A3,E>’A87, PAIL 

.  PRS 

18S0 

-O6.MRBNmS,MA,M5,M6,MT,P5PA,P6P5,P40P50.RTP6,PT0P40,T5TA»TAT5, 

PRS 

1880 

-T60T30.  T7T8«T70T80,,WS94) 

PRS 

1870 

IE  (FAIL. EO. YES)  00  .0  ios 

PRS 

1880 

«N8aMM*N*B«M*5 

PRS 

}8*0 

P5»PS0/P3PM(S5,M5) 

PRS 

1*00 

P ArP5/P«PA 

PRS 

1*10 

P8aP6P3»P5 

PRS 

1*70 

P60«P6()P50#P50 

PRS 

1*30 

TS-T90/T07MC05.M5I 

PRS 

1*40 

T4aT3/TST4 

PRS 

1*30 

T8aT8TS*T5 

PRS 

1*80 

T60aT60T5oM?0 

PRS 

1*70 

PAaRHO (P4*T4*M94) 

PRS 

1*80 

R40aRHp(P40.T40«*94) 

PRS 

1**0 

RSaRMO f P5«T5»M95 ) 

PRS 

7000 

RSQaRHO (?50,YS0»MR5) 

PRS 

?010 

P6aRH0(P6,T6,NW6) 

PRS 

7070 

R60aRHO(P60»T60,MH6) 

PRS 

7030 

RSHjaMSWAaKANl 

PRS 

7040 

M6W1«W«5M1*MAV1 

PRS 

7030 

X5XlaN5N|aMNl 'M*5 

PRS 

7060 

X8X1»X3X1 *XAX 1 

PRS 

7070 

A6aAl*V8*l*(Pl/P8>  »SQRT< ;M9l/N9S> *(160/110) >»(9MG1, Ml >/WN <08. «8) ) PRS 

7000 

A3aA8/A6*S 

PRS 

7090 

A4*A6-#5 

PRS 

7100 

60  TO  103 

PRS 

7110 

c 

PRS 

7170 

c 

PRS 

7130 

C«*« 

••PRS 

7140 

c* 

•PRS 

7150 

c« 

OPTIMUM  CONSTANT-AREA,  SUPERSONIC-SUPERSONIC  EJECTOR  CALCULATIONS 

•PRS 

7180 

c» 

•PRf 

7170 

c»«< 

•  •PRS 

7180 

c 

PRS 

71*0 

c 

PRS 

7700 

10? 

MWMMWlaMHS/MWl 

PRS 

7710 

PSOP1*PSO/P1 

PRS 

7770 

PTP1 aRT/Pl 

PRS 

7730 

TSOTlOaTSO/TIO 

PRS 

7740 

CALL  S5E0S (A7A6.81 »05,LINIT»M95MW1 .Ml.PSoPl ,P 7P1 ,T«OT10»A6A5, 

PRS 

7730 

-ETAAT,EAIL,06,M*(6MWS,M5,MA,N7,P5PI,PSOP10,P»P5,P60PSJ»PTP6,PTOP60,PRS 

7780 

-T571,T6T5,T60T50.T7T6 .T70T60.9391 > 

PRS 

7770 

lElEAlL.CO.YES)  00  TO  107 

PRS 

7780 

A5aA 1 / ( A6A3-1 ,0 ) 

PRS 

77*0 

123 


i  -  in r  > 


APPENDIX  O  CHEMICAL  LASER  ANALYSIS  PROGRAM  (Cl*P» 
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P5»P5PJ*P1 

PRS 

7300 

T5«TSTJ»T1 

PRS 

7310 

R5»RM0<P5,T5tM*5) 

PRS 

7370 

R50bRMO(P50.T90.Mh5) 

PRS 

7330 

XAXlaMRNl/NMSMNl 

PRS 

73*0 

AAaAAARaA* 

PRS 

7350 

MM6aN»6MN5«MM5 

PRS 

7360 

PAaP6P9«PS 

PRS 

7370 

P6OaP6OP50*PSO 

PRS 

7370 

T6aT6T9*T5 

PRS 

7300 

TA(IbTOOT*0»T50 

PRS 

7*00 

MAM  1 aW9W 1 ♦ 1 • 0 

PRS 

7*10 

X6X  1 aX6X 1*1.0 

PRS 

7*70 

c 

PRS 

7*30 

c 

PRS 

7**0 

c***< 

•••PRS 

7*50 

r» 

•PRS 

7*60 

c* 

SURSONJC  OIEFUSER  CALCULATIONS 

•PRS 

7*70 

c» 

•PRS 

7«G0 

c  •  •* 

•••PRS 

7*00 

c 

PRS 

750C 

c 

PRS 

7510 

1P3 

ATa ATAAAAA 

PRS 

7970 

07a«6 

PRS 

7530 

MMTaMMA 

PRS 

75*0 

P70aP7OP6O»P6O 

PRS 

7590 

T7aT7T0*T0 

PRS 

7560 

T70aT70760*T60 

PRS 

7570 

RTaRMO  <PT«  T7  «MM7 ) 

PRS 

75P0 

R7ti*  RNO  (P70tT70»MM7) 

PRS 

7590 

V7M|*MAMJ 

PRS 

7600 

X7x 1 »X4X 1 

PRS 

7610 

C 

PRS 

7670 

C 

PRS 

7630 

c  *  *  • 

••aPPS 

76*0 

c» 

•PR5 

7650 

c* 

OUTPUT  RESULTS 

aPRS 

7660 

c* 

•PRS 

7670 

c  •  •  • 

•••PRS 

7600 

c 

PRS 

7690 

c 

PRS 

7700 

MRJTE  (6*705)  (P3.M5iK»l,joi 

PRS 

7710 

10* 

CALL  OUTERS 

PRS 

7770 

#0  TO  706 

PRS 

7730 

c 

PRS 

77*0 

c 

PRS 

7750 

c««*< 

•••PRS 

7760 

c* 

•PRS 

7770 

c* 

FAILURE  INDICATORS 

•PRS 

7700 

c* 

•PRS 

7790 

€••*< 

•••PRS 

7600 

c 

PRS 

7610 

c 

PRS 

7070 

105 

MRIT'E  <6*70 1 1 

PRS 

7030 

GO  TO  70A 

PRS 

70*0 
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appenoi*  p 

PR08RAM  PBS 


CHEMICAL  LASCR  ANALYSIS  PR08RAM  <ClAP| 
OVERLAY  PPS 


PAAE  D>  6 


Iflft 

NPJTF (A, POP) 

PRS 

PASO 

80  TO  ?flf 

PBS 

8AA  0 

1  AT 

MRITE (A.P03I 

PRS 

PRTO 

C 

PRS 

f  880 

C 

PRS 

P  880 

c»«* 

•  APRS 

8*00 

c« 

•PRS 

P*I0 

c^ 

rOPNAT  STATf Nf NTS 

•PRS 

P*P0 

c* 

•  PRS 

8030 

fl« 

•  •PRS 

8*A0 

P01 

FORMAT i  •{!•  #  T?  »  •PROORAN  TERMINATED  IN  SUBROUTINE  SOS  AS  CALLED  EROMPRS 

p*so 

“  SUBROUTINE  PRS») 

PRS 

8*80 

PO? 

FOtIMAT  (•(*•#!?, •subroutine  caeos  mas  called 

FROM  SUBROUTINE 

PRS*> 

PRS 

8*T0 

P03 

FORMAT (•o»*Tl,*SURROUTINF  SSEOS  MAS  CALLFP 

FROM  SUBROUTINE 

PRS»I 

PRS 

8*80 

?04 

FORMAT(»J»,10«T?,»NOTC l  P3  ■•.E13.8**  PA 

ms  ■•.Ejs.it/n 

PRS 

8**0 

POS 

F0RMAT(»l«,10(T?,«N0TEl  PS  ■••f 1 3.6«*  PA 

ms 

PRS 

3000 

POA 

ENO 

PRS 

3010 

» 
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APPFNDI*  0 

subroutine  caefc 


CHFM|C*t  LASER  ANALYSIS  PROGRAM  (CLAPI 
OVERLAY  PRS 


PAGE  0-  r 


c 

c 

c* 

e« 

c» 

c« 

c* 

c 

c* 

c* 

c» 

c* 

c» 

c* 

c» 

c* 

c* 

c* 

c« 

r* 

c« 

c« 

c* 

c* 

c« 

c* 

c* 

c« 

c* 

c* 

c* 

c 

c 


c 

c 

c* 

c* 

c* 

e* 

c* 

c 

c 


c 

c 

c* 

c* 

c* 

c* 

c* 


SUBROUTINE  C A£FC ( 65 1 OP • MS  1 .MP 1 , AP J AMJ  ,PS 1PP 1 ,F A IL ) 


CONSTANT-AREA  EJECTOR  f  ABRl  CRITERION  SUBROUTINE  (CAEFC) 


SUBROUTINE  CAEFC  PERFORMS  THE  CONSTANT-AREA.  SUBSONIC-SUPERSONIC 
EJECTOR  FARRJ  CRITERION  CALCULATIONS  BY  ONE -01 MENS I ON AL  ANALYSIS 
FOR  A  SUPERSONIC  PRIMARY  <MP]>])  ANO  A  SUBSONIC  SECONDARY  <NS 1 < 1 ) 
NMICM  CHORES  IN  THE  EJECTOR  SMROUO  (MS?»1).  THIS  EJECTOR  ANALYSIS 
IS  BASED  ON  THE  CONSTANT-AREA  SHROUD,  IJECTOP  ANALYSIS  OF  FARSI , 
REFERFNCE I  NACA  TM  1*10. 

INPUT  VARIABLESI 

«S  ■  SECONOARY  QAMMA 

OP  a  PRIMARY  OAMMA 

MSI  •  SECONOARY  MACH  NO.  AT  THE  MIXING  TUBE  ENTRANCE 
MP I  a  PRIMARY  MACH  NO.  AT  THE  MIXING  TUOf  FNTRANCE 

API  AM)  «  PRIMARY-TO-MIXING  TORE  AREA  RATIO 

OUTPUT  VARIABLESI 

PSJPPl  a  SECONORRY-TO-PRIMARY  STATIC  PRESSURE  RATIO 
FAIL  a  ERROR  FLAO 


IMPLICIT  REAL (M) 

DATA  ?C5/3NVCS/,PART/*MPART/,SUP/3MSUP/ 


GAS  DYNAMIC  FUNCTIONS 


o 


T0TM(G,M)al.0*0.SP»G-1.0»«M«M 
PPOM  (6, M>aTOTM(G,M)  ••(-(!, (0-1, on 

AASM  (G  ,M )  a  (  (?.0*TOTM(0»M)/(0»].0))**(0'iS*(6*].0)/(  P-1.0)  » > /N 


FABRICS  CRITERION  APPLIES  ONLY  WMFN 
(MS1.LE.1.0)  ANO  (PS1PP1.LC.1.0). 

i 


CAEFC 

0106 

CAEFC 

0110 

CAEFC 

01*0 

‘••CAEFC 

0130 

•CAEFC 

01*0 

•CAEFC 

0110 

•CAEFC 

01*0 

►••CAEFC 

0 1  TO 

CAEFC 

01*0 

•••CAEFC 

eioo 

•CAEFC 

0*00 

•CAEFC 

0*10 

•CAEFC 

0**0 

•CAEFC 

0*30 

•CAEFC 

0**0 

•CAEFC 

0*90 

•CAEFC 

0**0 

•CAEFC 

0*T0 

•CAEFC 

0*G0 

•CAEFC 

0*00 

•CAEFC 

0300 

•CAErC 

0310 

•CAEFC 

03*0 

•CAEFC 

0330 

•CAEFC 

03*0 

•CAEFC 

0390 

•CAEFC 

03*0 

•CAEFC 

93T0 

•CAEFC 

03*0 

•CAEFC 

0300 

•CAEFC 

0*00 

•••CAETC 

0*10 

CAEFC 

0*?0 

CAEFC 

0*30 

CAEFC 

0*  '<  0 

CAEFC 

0*90 

CAEFC 

0**9 

CAEFC 

0*T0 

•••CAEFC 

0**0 

•CAEFC 

0*00 

•CAEFC 

0500 

•CAEFC 

0910 

•••CAEFC 

05*0 

CAEFC 

0930 

CAEFC 

09*0 

CAEFC 

0550 

CAEFC 

05*0 

CAEFC 

0570 

CAEFC 

0500 

CAEFC 

0500 

•••CAEFC 

0*00 

•CAEFC 

0*16 

•CAEFC 

0**0 

•CAEFC 

0*30 

•CAEFC 

0**0 
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appendix  n 

SUMOOTjNt  CACFC 


CHtMICAL  LASFR  ANALYSIS  PPOOPAN  (Clap- 
OVERLAY  MS 


FH(  0-  A 


c«« 

••CACFC 

ooso 

c 

cacfc 

0000 

c 

CACFC 

06TO 

1F«HS1,«T.(1.01 t  00  TO  )03 

CACFC 

OOPS 

ifhi. -nsd.lt. ii. r-*n  to  io? 

CACFC 

OOPS 

c 

CACFC 

OTflO 

c 

CACFC 

8?10 

c*» 

••CACFC 

OTJO 

c« 

•CACFC 

0130 

c» 

CALCULATE  HP?  AT  STATION  (?)  9HCPE  NS?»1.0  FOOP 

•CACFC 

OT40 

c* 

THE  APE  A  PATIO  FOP  STPEAN  (P>  AT  STATION  (?). 

•CACFC 

OT90 

c* 

•CACFC 

OTAO 

c*« 

••CACFC 

OTTO 

c 

CACFC 

OTOO 

c 

CACFC 

OT90 

AP?APS«(AASN(OP,HPn /APlAN3)«a.-(  1  .-AP1AH3)  /AASN(SS.PSl)  ) 

CACFC 

OBOO 

CALL  MAAS(6P«NP1 ,AP?APS,SUP.9.0C-06.NP?»FAlL) 

CACFC 

00 1 0 

IF  (FAIL. EO. YES)  (,0  TO  >0T 

CACFC 

3O?0 

IF(NP?.LT.MP1)  00  TO  110 

CACFC 

0030 

IF ( (*P?/NPl-l.) ,lT. (l.E-AI )  00  TO  101 

CACFC 

0040 

c 

CACFC 

0090 

c 

CACFC 

0000 

c«« 

••CACFC 

OPTO 

c* 

•CACFC 

0000 

c* 

CALCULATE  STATIC  PPESSUPE  PATIO  PS1PP1  BASED  ON  FABPItS  CPITEPION. 

•CACFC 

0000 

c« 

•CACFC 

0*00 

c*« 

••CACFC 

0«10 

c 

CACFC 

ooce 

c 

CACFC 

0030 

V0«(1.0-AP1AN3)« ( (1.0«AS»(MS1*«?I )- 

CACFC 

0940 

-|PPON(OS.l .0) /PPOH (OS, MSI) >* ( ( 1 . 0*OS) /A ASM (OS, MSI ) )  ) 

CACFC 

0990 

VN»(PPOM.OP,NP?I/PPOH(OP.NP1) )«AP1AN3*(AASH(0P,NP?|/ 

CACFC 

0900 

-AA5M((IP,MP1 ) )*(1 ,*0P« (MP?»*?) t-APl ANJ*( 1 ,,0P« (MPl*«p) ) 

CACFC 

O9T0 

PSlPPl«VN/VD 

CACFC 

0900 

IF (PS1PP1 ,LE. (0.0) )  00  TO  10S 

CACFC 

0990 

I F (PS 1PP l.OT.(l.Ol)  60  TO  101 

CAEFC 

1000 

PETUPN 

CACFC 

1010 

c 

CACFC 

loco 

c 

CACFC 

1030 

c*<» 

►••CACFC 

1040 

c* 

•CACFC 

1090 

c* 

HSl  IS  APPBOX INATELV  1,0  AND  "P?  IS  APPROXIMATELY  MP1. 

•CACFC 

1060 

c» 

•CACFC 

IOTO 

c*« 

•••CACFC 

1000 

c 

CACFC 

1090 

c 

CACFC 

1100 

101 

IF (MS[,^T,1,0)  00  TO  110 

CACFC 

1110 

10? 

PS1PP1«).0 

CACFC 

11?0 

PETUPN 

CACFC 

1130 

c 

CACFC 

1140 

c 

CACFC 

1190 

r«* 

►••CACFC 

1160 

€• 

•CACFC 

11  TO 

c* 

ERROR  MESSAOES 

•CACFC 

1100 

Co 

•CACFC 

i  190 
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ARRFNOI*  0 
SUBBOUT  INF  CAEFC 


CM£M I C  Alj.  LASfR  ANAIYSIS  FAOORAM  tCt*Bt 
OVERLAY  PUS 


BAOE  0-  * 


c***< 

•CAEFC 

c 

CAEFC 

c 

CAtFC 

103 

MRITE (*« 10*) 

CAEFC 

10* 

FORMAT <*1*«T?, •CRRO* 

IN  SUBROUTINE 

CACFCi 

MR  1 > 1 • ) 

CAEFC 

00  TO  !«*«■ 

CAEFC 

103 

M*ITF(*.10M 

CAEFC 

10* 

FORMAT (*1*,T?. •ERROR 

IN  SUBROUTINE 

C AEFC i 

»»SlRP!«0*t 

CAEFC 

•0  TO  l(*9 

CAEFC 

10  r 

moite  ie.,108) 

CAEFC 

10* 

FORMAT c«0*. T?,*SURROUTINf  MAAS  MAS 

C ACLEO 

FROM  SUBROUTINE  CAEFC*| 

CAEFC 

10* 

fail«yes 

CAEFC 

RETURN 

CAtFC 

no 

FARaRART 

CAEFC 

END 

CAEFC 
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APPEND  I *  n 
SUBROUTINE  CAEOCV 


CHEMICAL  LASER  ANALYSIS  PROGRAM  »CLAP» 
OVERLAY  P*S 


PAGE  0-10 


SUPPOUTINE  CAEOCV(GS,r,P,MWSMNP,TSOTPO.MSl ,MP1 ,AP1AM1,PS;^PI , 
•FLOW. WSWR.GM.MWMMWR.TMrtTPO. MM3, PPOPSO.RM3RSO»RM3RP!, FAIL) 


CONSTANT-AREA  EJECTOR  OVERALL  CONTROL  V'  UMf  SUBROUTINE  (CAEOCV) 


SUPPOUTINE  CAEOCV  PEPEOPNS  THE  CONSTANT-AREA  Ev ECTOR,  OVERALL 
CONTROL  VOLUME  CALCULATIONS  BY  ONE-DIMENSIONAL  ANAl  fSl«  FROM  INLET 
SECTION  f i |  TO  NIXED  SFCTION  (3). 

INPUT  VARIABLES) 

OS  ■  SECONDARY  GAMMA 

GP  *  PRIMARY  GAMMA 

MWSMWP  ■  SFCONPARY-TO-PPIMARY  MOLECULAR  WEIGHT  RATIO 

TSoTPfl  •  SFCONOARY-TO-PRIMARY  STAGNATION  TEMPERATURE  RATIO 

MSI  ■  SECONDARY  MACH  NO.  AT  THE  NIXING  TUPF  FNTRANCF 
HP  I  a  PRIMARY  MACH  NO.  AT  THE  MIXING  TUBE  ENTRANCE 

APIAM3  a  PRIMARY— TO— MI  XING  TUBE  AREA  PATIO 
PSlPPl  ■  SFCONOARY-TO-PRIMARY  STATIC  PRESSURE  RATIO 
FLOW  a  CONTROL  VARIABLE  SUCH  THAT  I 

«  "SUB"  FOR  THE  SUBSONIC  SOLUTION 
a  "SUP"  FOR  THE  SUPERSONIC  SOLUTION 

OUTPUT  VARIABLES) 

VSWP  i*  SECONOAPY-TO-PRIMARY  MASS  ELOW  RATIO 

6M  a  MIXED  STREAM  GAMMA 

MWMMMP  a  MIXEO  STREAM-TO-PRIMABY  MOLECULAR  WEIGHT  RATIO 

tmatpa  a  Mjxro  stream-to-prihart  stagnation  tfmperatupe  ratio 

MM3  a  MIXED  STREAM  MACH  NO,  AT  THE  MIXING  TUBE  EXIT 

PMPSo  a  PRIMARY-TO-SECONDARY  STAGNATION  RRF55URE  PATIO 

PMJPSO  ■  MIXED  STREAM  STAT IC-TO- SECONDARY  STAGNATION  PRESSURE  RATIO 

PM3PP1  a  MIXED  STREAM-TO-PRIMARY  STATIC  PRESSURE  RATIO 

FAIL  •  ERROR  FLAG 


IMPLICIT  REALIM) 

OATA  PAPT/AHPART/,5UP/3HSUP/ 


GAS  DYNAMIC  FUNCTIONS 


CAEOCV 

CAEOCV 

CAEOCV 

CAEOCV 

••CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

••CAEOCV 

CAEOCV 

••CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 

‘•CAEOCV 

CAEOCV 

CAEOCV 

CAEOCV 

CAEOCV 

CAEOCV 

CAEOCV 

‘•CAEOCV 

•CAEOCV 

•CAEOCV 

•CAEOCV 


^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••CAEOCV  0630 

C  CAEOCV  06A0 
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APPCNOI*  0  fMFPlCAL  LAS C*  ANALYSIS  PP06PAP  <Cl»P> 

SUMOiiTlNF  CACOCV  OVC*L»V  P*S  P»M  0-11 

C  CACOCV  0650 

*(*(«. Pt«**«SQ»T  (0«  ( 1  .!•(•<••?»  M  CACOCV  0660 

T  (6,  P|b<1. »*•<«••?> I /|P*S0PT  <1  .)•<*»••>))  )  CACOCV  06TO 

PPfl*M*.  P>»U.  •„5«|G-1.  >•(*••?)  )  CACOCV  0660 

C  CACOCV  0600 

C  CACOCV  OTfO 

C# *•••••••••••••••••••••••*•••••••••••**•••••••••••••••••••••••• ••••••••CACOCV  OTIO 

C»  "CACOCV  OTCO 

C«  CslfCTOP  PASS  PLOV  PATIO  "CACOCV  0T30 

C"  "CACOCV  0T60 

C""*" •••••••••••••••••••••*"••••••••• •"•••••••"•"•••••••••••••••••••"•••CAlOCV  OTSO 

C  CACOCV  0T60 

C  CACOCV  OTTO 

CO«SQ*T(PWPVP/1S0TPO>  CACOCV  0T«0 

¥SVP"PSlPPl«< (1.-AP1AP3>/AP1AN3)*C0*<MN(9S.mS1)/«M(*P«NP1I )  CACOCV  OTOO 

CPSCPP"««S/OP)"( (6P-1. I / (OS-l.il/PVSPVP  CACOCV  0*00 

C  CACOCV  0010 

C  CACOCV  0*»0 

C"  "CACOCV  9*40 

C"  Pixro  PLOV  PPOPCPTIES  "CACOCV  0*50 

C"  "CACOCV  0*60 

(•••••••••••^•••""•••••••••••••••••••••••••••••••••••••••••••••••••"•••CACOCV  0*T0 

C  CACOCV  0**0 

C  CACOCV  0*«0 

P«MMHP-(l,*HSPP)/<l.*(WS«P/MVSPMPn  CACOCV  0*00 

»P"1./(1 (OP-1. 1 /0P)"(  (1 ,* (VSVP/PPSPPP) 1 /<1.*CPSCPP*VSWP) >  1  CACOCV  0610 

TPOTPO«(1.»VSWP"CPSCPP"TSOTPO)/(1.»PSVP*CPSCPP>  CACOCV  0*C0 

C  CACOCV  0*30 

C  CACOCV  0040 

(^••••••••••••••••••••••••••••••'•••••••••••••••••••••••••••••••••••••••CACOCV  0050 

C"  "CACOCV  0060 

C"  SOL VC  POP  PP3  "CACOCV  0OT0 

C"  "CACOCV  00*0 

^••••••••••••••••••••••••••••••••••"•••••••••••••••••••••••••••••••••••CACOCV  OOOO 

C  CACOCV  1000 

C  CACOCV  1010 

ClaSOPT ( ( TSOTPO/PPSPVP) • (OP /OS) )  CACOCV  10C0 

c?.soRnTPoTPo/Pvppwp»««p/*Mn  cacocv  1030 

TP3« (T (*P» PP1 ) ♦C1»P$VP*T (OS.PSl I ) / ( ( 1 . *VSVP1 *Cf)  CACOCV  1040 

TP3P!N«SOPT(?,*(0H«l,n  CACOCV  1050 

1PCTPJ.LT.TP3P1N1  00  TO  10  CACOCV  1060 

C3»(TPS**?-?.»0M)  CACOCV  1 0TO 

C 4 • C  < (OP— 1 • ) /? • 1 • ( TP3**?> -6P»*? )  CACOCV  10*0 

C5"S0PT «C3«»?*4,»C41  CACOCV  10OO 

PSQ03P«(-C3-C5>/(?,*C4>  CACOCV  1100 

PS003P»(-C3«C5)/(?.*C4)  CACOCV  mo 

C  CACOCV  11?0 

C  CACOCV  1(30 

c»  «CACOCV  1150 

C«  OCTCPPINC  TVO  POSSI*LC  PIXCO-PLOV  PACP  NO.  SOLUTIONS  *CACOCV  1160 

C*  «CACOCV  1 }T0 

C* •••••*••**••••••*•*••*•••*•••••••••*•*•• ••••••••••"•••••••••••••••••••CACOCV  11*0 

C  CACOCV  ll«0 
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C*fM|CAL  LASER  ANALYSIS  PROGRAM  (CLAP) 
OVERLAY  MS 


APPENOI*  0 
SUMOUTJNf  C AFOCV 


PAGE  0-1 ? 


c 


c 

c 

c« 

c» 

c» 

c» 

c* 

c 

c 


c 

c 

e»< 

c« 

c» 

c» 

c* 

c 

c 

10 


If (NSOOTN.OE . ( 0 . 0 ) )  NNV«»SORT (MS0D3M I 
ir<MsaoiP.#c.<o.oi i  mmip.4ort<nsqd3P> 
MNJ.MMSR 

if (flon.fo. sun  mmj^mmim 


CALCOLATr  PRESSURE  RATIOS 


C6»SaRT(TMOTPO/MMMMMP> 

PM3PP1"C6*AP1AM3«(  l.«VS*fP)  •OMfGP.MPl  >  /VM(3M,MM3>  ) 
PPORSO«(PRON<*S.NSn/MOM(OR,NRl)  >/PSlPPl 

PP3PS0-PN3PP1  •  < PPON  ( <55  ,NS  1 1  /PS  1 PP 1  > 

RETURN 


ERROR  MESSAGES 


FAIL-PART 

ENO 


CAEOCV  ieoo 

caeocv  1?10 

CAEOCV  l??0 
CAEOCV  1E30 
CAEOCV  l?AO 
CAEOCV  1?50 
CAEOCV  1?60 
•CAEOCV  1 ??0 
•CAEOCV  1  ERG 
•CAEOCV  J?90 
•CAEOCV  ]3$(l 
•CAEOCV  1310 
CAEOCV  1 3?0 
CAEOCV  1330 
CAEOCV  13A0 
CAEOCV  1350 
CAEOCV  1360 
CAEOCV  1370 
CAEOCV  i380 
CAEOCV  1 300 
CAEOCV  1400 
►•CAl'OCV  1410 
•CAEOCV  14?0 
•CAEOCV  1430 
•CAEOCV  1440 
‘•CAEOCV  1450 
CAEOCV  1460 
CAEOCV  1 4T0 
CAEOCV  1460 
CAEOCV  1490 
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>  o  n  n 


append:*  n 

SUBROUTINE  CAEOS 


CHEMICAL  LASFR  ANALYSIS  PROGRAM  (CLAP> 
OVERLAY  PRS 


page  o-i3 


SUBROUTINE  CAEOS  <A7A6.GS.r,P,MWPMWS,P5flP4!),P7P40,T«;nT*0.A6A5,ETA67 
-FAIL.flM.MVMMMP,M4,M5,M6,M7,PSPA,PAPS,P60P5«,P7PA,P7(»P60.T5TA.T6TS 
-TfrftTSfl.T7TA,T70T60.WPVS) 


SUBSONIC-SUPERSONIC  EJECTOR  OPTIMIZATION  SUBROUTINE  (CAEOS) 


CAEOS  IS  A  SUBROUTINE  FOR  OPTIMIZING  A  CONSTANT-AREA .  SUBSONIC- 
SUPERSONIC  EJECTOR-SUBSONIC  DIFFUSER  SUBSYSTEM  BY  ONE-DIMENSIONAL 
ANALYSIS.  THE  OPTIMUM  IS  TAKEN  TO  PE  THAT  CONFIGURATION  WHICH 
REQUIRES  THE  MINIMUM  ORIVFR  MASS  FLOW  FOR  A  GIVEN  DRIVFR  STAGNATION 
PRESSURE  AND  GIVEN  COMPRESSION  RATIO. 

INPUT  VARIABLES! 

A7AA  «  SUBSONIC  DIErUSFR  EE IT-TO-ENTRANCE  AREA  RATIO 

GS  a  SECONDARY  GAMMA 

GP  a  PRIMARY  GAMMA 

MWPMWS  ■  PRIMARY-TO-SECONDARY  MOLECULAR  WEIGHT  RATIO 

P50PA0  ■  PRIMARV-TO-SECONOARY  STAGNATION  PRFSSURE  RATIO 
P7P40  ■  SUBSONIC  DIFFUSED  EXIT  STAT IC-TO-SFCONDARY  STAGNATION 

PRESSURE  RATIO 

TSOTAO  a  PRIMARV-TO-SECONOARY  STAGNATION  TEMPFPATURE  RATIO 


OUTPUT  VARIABLES! 

A6A5  ■  MIXING  TUBf-YO-PRIMARY  NOZZLE  EXIT  ARFA  RATIO 
ETA6T  a  SUBSONIC  DIFFUSFR  COEFFICIENT 
FAIL  *  ERROR  FLAG 

GM  a  MIXED  STREAM  GAMMA 

MWMMWP  a  MIXED  STREAM-TO-PRIMARY  MOLECULAR  WEIGHT  RATIO 
M*  a  SECONDARY  MACH  NO.  AT  THE  MIXING  TURF  ENTRANCF 

MS  a  PRIMARY  MACH  NO.  AT  THE  MIXING  TUBE  ENTRANCE 

M*  a  mixed  STREAM  MACH  NO.  AT  THE  MIXING  TUBE  EXIT 

M7  a  MACH  NO.  AT  THE  SUBSONIC  DIFFUSER  EXIT 
P5PA  a  PRIMARY-TO-SECONOARY  static  PRESSURF  ratio 
P6P5  »  MIXEO  STREAM-TO-PRIMARY  STATIC  PRESSURE  RATIO 
P60P50  a  MIXED  STREAM-TO-PRIMARY  STAGNATION  PRESSURE  RATIO 
prPG  a  SUBSONIC  OIFFUSER  EX IT-TO-ENTRANCE  STATIC  PRESSURE  RATIO 
P/0P60  a  SUBSONIC  OIFFUSER  EX IT-TO-ENTRANCE  STAGNATION  PRESSURE 
RATIO 

T5TA  a  PPIMARY-TO-SECONCARY  STATIC  TEMPERATURE  RATIO 
Y6TS  a  MIXEO  STREAM-TO-PRIMARY  STATIC  TEMPF>',AT'URE  RATTO 
Tfc  r?0  a  MIXED  STREAM-TO-PRIMARY  STAGNATION  TEMPERATURE  RATIO 
TTT6  a  SUBSONIC  DIFFUSFR  EX IT-TO-ENTRANCE  STATIC  TEMPERATURE 
a  RATIO 

TVOTGO  ■  SUBSONIC  OIFFUSER  EXIT-TO-ENTRANCE  STAGNATION  TEMPERATURE 
RATIO 

WPWS  a  PRIMARY-TO-SECONOARY  MASS  FLOW  RATIO 


.CAEOS 

.CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAFOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAFOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAFOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 

CAEOS 
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APPENDIX  O  CHEMICAL  LASER  ANALYSIS  PR06RA**  (CLAP) 


SU8R0UTINE  CAfOS  OVERLAY  RRS 

PAGE 

0-S4 

C* 

•CAEOS 

0680 

c»»» 

0660 

c 

CAEOS 

0670 

c 

CAEOS 

0660 

IMPLICIT  REAL (N) 

CAEOS 

0660 

REAL  NO 

CAEOS 

0700 

DATA  N0/*HN0/*SU6/3NSU6/« YES/3HVES/ 

CAEOS 

0710 

c 

CAEOS 

07*0 

c 

CAEOS 

0730 

C#H 

0740 

c« 

•CAEOS 

0750 

c« 

OAS  DYNAMIC  FUNCTIONS 

•CAEOS 

0760 

c» 

•CAEOS 

0770 

c*** 

0760 

c 

CAEOS 

07*0 

c 

CAEOS 

0600 

TOTK(Q,M)-l .C*0.S» (0-1.0) *M«M 

CAEOS 

0610 

POPM(e,M)«ToTM(ai/M)«»(d/ia-i.o)  > 

CAEOS 

06*0 

c 

CAEOS 

0630 

c 

CAEOS 

06*0 

c#«* 

0650 

c* 

•CAEOS 

0860 

c« 

ITERATE  M*  TO  FIND  MINIMUM  XWPVS 

•CAEOS 

0670 

c* 

•CAEOS 

0660 

06*0 

c 

CAEOS 

0900 

c 

CAEOS 

0*10 

mwsmmr«i.o/mwpmms 

CAEOS 

0**0 

T40T50»i.0/T50T40 

CAEOS 

0*30 

NTYPEl*! 

CAEOS 

0*40 

NITj-1 

CAEOS 

0*50 

M4«1.0 

CAEOS 

0960 

DO  110  ITE Rl»l *1000 

CAEOS 

0*70 

c 

CAEOS 

0*60 

c 

CAEOS 

0**0 

c*«* 

i  0  5 .1 

c« 

•CAEOS 

1010 

c* 

ITERATE  AftA5  TO  FINO  XPfOP* 0*P50P*0 

•CAEOS 

10*0 

c* 

•CAEOS 

)030 

c#«* 

10*0 

c 

CAEOS 

1050 

c 

CAEOS 

1060 

NTYPEP-1 

CAEOS 

1070 

NIT*»1 

CAEOS 

1060 

AAA«(»«0.0 

CAEOS 

10*0 

DO  *,06  ITER*»1  •  1000 

CAEOS 

1100 

c 

CAEOS 

1)10 

c 

CAEOS 

11*0 

1130 

c* 

•CAEOS 

11*0 

c* 

IVERATE  M5  TO  TIND  l(P7P*0BP7PAO 

•CAEOS 

1150 

c» 

•CAEOS 

1160 

c**« 

1170 

c 

CAEOS 

1160 

c 

CAEOS 

11*0 

1 
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APPENDIX  0  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  CAfOS  OVERLAY  PRS 

PAGE 

D-1S 

NT  YP£3« 1 

CAEOS 

1?00 

NIT3-1 

CAEOS 

1210 

n^-i.oi 

CAEOS 

1  2?e 

DO  106  ITfR3»ls100ft 

CAEOS 

1  ?30 

r 

CAEOS 

1240 

c 

CAEOS 

1  ?50 

••••CAEOS 

1260 

c« 

•CAEOS 

12T0 

c« 

CALCULATIONS  TOR  CONST ANT-ARE A  EJECTOR 

•CAEOS 

1200 

c* 

•CAEOS 

1290 

••••CAEOS 

1300 

c 

CAFOS 

1310 

c 

CAEOS 

1320 

A4A6-1 .0/A6A3 

CAEOS 

1330 

IE (M4.NF.1 .0)  00  TO  101 

CAEOS 

1340 

PAPS- 1,0 

CAEOS 

1350 

00  TO  10? 

CAEOS 

1360 

101 

CALL  CAFFC<GS,GP,M4.M5,A5A6,P4P6,FAIL) 

CAEOS 

1370 

IE(EAIL.EO.YES)  go  to  u? 

CAEOS 

13B0 

IE  (FAIL. NE. NO)  00  TO  103 

CAEOS 

1390 

10? 

CALL  CAEOCV(GS,OP,MMSMWP,T40T50.M4.M5, ASA6 .P4P5 « SU6 , WSWP ,6M , 

CAEOS 

1400 

-MWMMVP,T60TSO.H6.XP50P40.P6H40,P6P5.EAIL) 

CAEOS 

1410 

IE  (FAIL. EO. YES)  GO  TO  111 

CAEOS 

1420 

IE  (FAIL. FO. NO)  00  TO  105 

CAEOS 

1430 

c 

CAEOS 

1440 

c 

CAEOS 

1450 

••••CAEOS 

1460 

c» 

•CAEOS 

1470 

c» 

NO  CAE  SOLUTION  EXISTS  FOR  CURRENT  VALUE  OF 

•CAEOS 

1460 

c* 

MS.  INCREMENT  MS  AND  SEARCH  FOR  SOLUTION. 

•CAEOS 

1490 

c« 

•CAEOS 

1300 

c«** 

••••CAEOS 

1310 

c 

CAEOS 

1520 

c 

CAEOS 

1330 

103 

MS.MS*0.5 

CAEOS 

1540 

IF (MS. GT. 10.0)  00  TO  104 

CAEOS 

1350 

FAIL-NO 

CAEOS 

1360 

GO  TO  106 

CAEOS 

1570 

c 

CAEOS 

1580 

c 

CAEOS 

1390 

c*** 

••••CAEOS 

1600 

c# 

•CAEOS 

»6J  3 

c* 

NO  CAE  SOLUTION  EXISTS  rOR  CURRENT  VALUE  OF  A6A5. 

•JAEOS 

1620 

c» 

INCREMENT  A6AS  AND  SEARCH  FOR  SOLUTION. 

•CAEOS 

1630 

c* 

•CAEOS 

1640 

c*«» 

••••CAEOS 

1630 

c 

CAEOS 

1660 

c 

CAEOS 

1670 

io* 

A6AS-A6AS-0.5 

CAEOS 

1660 

IF  ( A6AS.LE .1.0)  GO  TO  109 

CAEOS 

1690 

fail-no 

CSEOS 

1700 

GO  TO  108 

CAEOS 

1710 

c 

CAECS 

1720 

c 

CAEOS 

J73o 

c»«* 

••••CAEOS 

1740 
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APPENDIX  r>  CHEMICAL  LASER  ANALYSIS  PROORAM  (CLAP) 


SUBROUTINE  CAEOS  OVERLAY  PRS 

PAGE 

D-16 

C» 

•CAEOS 

1750 

C* 

CALCULATIONS  FOR  SUBSONIC  0IFFU5ER 

•CAEOS 

1760 

C« 

•CAEOS 

1770 

C*« 

‘•CAEOS 

1700 

C 

CAEOS 

J  790 

C 

CAEOS 

]B00 

105 

CALL  SOS <OM,M6,A7A6,M7,P?P6.P70P60.T7T6,T70T60» 

ETAATiFAIL) 

CAEOS 

1010 

IFIFAIL.E0.YES)  00  TO  n* 

CAEOS 

1BE0 

KP7P*0«-P7P6»P6P40 

CAEOS 

1030 

C 

CAEOS 

1040 

C 

CAEOS 

1050 

c«* 

(•CAEOS 

1060 

C« 

•CAEOS 

1070 

C« 

TEST  FOR  XP7P40«P7P40  AND  INCREMENT  MS 

•CAEOS 

1000 

C» 

•CAEOS 

1090 

c»* 

(•CAEOS 

1900 

C 

CAEOS 

1910 

c 

CAEOS 

1920 

CALL  ITER (M5, 0.5.5, OF -06»*1. 0  »Xf’?P40»P7P40  » I . OE 

-01.NIT3.NTYPE3* 

CAEOS 

1930 

**XN£6J« VNE63,XP0S3» YPOS3.NSIGN3.NSJON4) 

CAEOS 

1940 

IF  (NTVPE3.E0. 3)  00  TO  107 

CAEOS 

1950 

106 

CONTINUE 

CAEOS 

I960 

00  TO  lie 

CAEOS 

1970 

C 

CAEOS 

1960 

C 

CAEOS 

1990 

C*« 

‘•CAEOS 

2000 

C« 

•CAEOS 

2010 

C* 

TEST  FOR  XP50P40-P50P40  AND  INCREMENT  A6A5 

•CAEOS 

20<*0 

C« 

•CAEOS 

2030 

c«« 

‘•CAEOS 

20*0 

c 

CAEOS 

2050 

£ 

CAEOS 

2060 

107 

CALL  ITCR(A6A5„0,5.5.0e-fi6,-:.0,XP50?40,P50P40. 

1.0E-01.NIT2. 

CAEOS 

EO-'O 

. NTYPE2»XNEO2,TNE02»XPO52» YP052»N5T  3N1 .NS I ON?) 

CAEOS 

2000 

IF  INTYPE?, EQ, 3.  00  TO  109 

CAEOS 

2090 

100 

CONTINUE 

CAEOS 

2100 

00  TO  117 

CAEOS 

2110 

C 

CAEOS 

2120 

C 

CAEOS 

2no 

C»* 

‘•CAEOS 

2140 

C« 

•CAEOS 

2150 

C* 

IF  NO  CAE  SOLUTION  EXISVS  FOR  CURRENT  VALUE  OF  M*. 

INCREMENT  M4  AND 

•CAEOS 

2160 

C* 

SEARCH  FOR  SOLUTION.  IF  SOLUTION  FOUND,  TEST  FOR 

MINIMUM  XWPWS  AND 

•CAEOS 

2170 

C* 

INCREMENT  M4. 

•CAEOS 

2100 

C* 

•CAEOS 

2190 

C** 

‘•CAEOS 

2200 

C 

CAEOS 

2210 

C 

CAEOS 

2220 

109 

XWPMS«1.0/MSMP 

CAEOS 

2230 

CALL  MIN tM4.XMPMS,NTYPEl,NITl, FAIL) 

CAEOS 

2240 

IFIFAIL.EO.YES)  00  TO  1J$ 

CAEOS 

2250 

IF  (NTYPE1  ,E0«4)  GO  TO  HI 

CAEOS 

2260 

no 

CONTINUE 

CAEOS 

2270 

00  TO  110 

CAEOS 

2200 

in 

VPHSaXNPHS 

CAEOS 

2290 
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APPfNOIX  D  CHEMICAL  LASFR  ANALYSIS  PROW**  <Cl*P> 


SUBROUTINE  CAfOS  OVFRLAV  PRS 

bade 

0-1  T 

P8P4»1 .9/P4Pb 

CAEOS 

*300 

P6flPSO«P4P8«POPM(OHt*6)  /POPM  <«P ,  *«, ) 

CAEOS 

P31  0 

T5T4"TOftT*0»T0TM(«S.M*| /TOTM<6P,M5) 

CAEOS 

*3*0 

r6T5»T6OT60»T0TM(GP,M6|  /T OTM  («*,*•> ) 

CAEOS 

P330 

RFTURN 

CAt-OS 

?*»0 

c 

CAI’OS 

P350 

c 

CAEOS 

*363 

C*«« 

•••••CAEOS 

*370 

c» 

•CAEOS 

P3B0 

c> 

FAILLPF  INDIC4T0RS 

•CAEOS 

ESSO 

c» 

•CAEOS 

*400 

►••••CAEOS 

P*  1 0 

c 

CAEOS 

*4*0 

c. 

CAEOS 

*430 

IIP 

wRmo.pen 

CAEOS 

*440 

RETURn 

CAEOS 

*450 

113 

WRITE<6,*0*» 

CAE05 

*460 

RETURN 

CAZOS 

*4T0 

114 

WRITE (0,793) 

CAEOS 

£r460 

RETURN 

CAFOS 

*460 

115 

WRITE(6.*04» 

CAEOS 

*500 

RCTURN 

CAEOS 

*510 

116 

4P7?E(ft,P0i)N*t*6*5.N°«,XFTP40iPTP4  0 

CAEOS 

*5*0 

00  TO  110 

CAFOS 

*530 

in’ 

WRITE (ft, 106. N*. *5,46*5, XP59P40.P30P40 

CAFOS 

*540 

80  TO  in 

CAEOS 

*550 

HS 

WRITE  16, POT) *5,*6*5«*4«XWPUS 

CAEOS 

*560 

in 

E*IL»Tr2 

CAEOS 

*5T0 

c 

CAEOS 

*580 

c 

CAEOS 

*5«0 

c*** 

•••••CAEOS 

*600 

c* 

•CAEOS 

*610 

c* 

rORMAT  STATEMENTS 

•CAEOS 

*6*0 

c* 

•CAEOS 

*630 

c«#« 

•••••CAEOS 

*640 

c 

CAEOS 

*650 

c 

CAEOS 

*660 

P01 

FORMAT  (•0*,T*»*PROORAM  TERMINATED  IN  SUBROUTINE 

CAFTC*,/, 

CAEOS 

£6T0 

-T*,*AS  CALLED  FRO*  SUBROUTINE  CAEOS*) 

CAEOS 

*680 

POP 

FORMAT (»0*. TP, •PR06RA*  TERMINATED  IN  SUBROUTINE 

CAFOCV*,/, 

CAEOS 

*600 

-T*,»AS  CALLED  FROM  SUBROUTINE  CAEOS*) 

CAEOS 

*T00 

P03 

FORMAT (*0*. TP, xPROORAM  TERMINATED  IN  SUBROUTINE 

$DS*»/» 

CAEOS 

*T  1 0 

-TP, PAS  CALLED  FROM  SUBROUTINE  CAEOS*) 

CAEOS 

*T*0 

P04 

FORMAT(»0».T?,»PROORAM  TERMINATED  IN  SUBROUTINE 

NlN*  « /• 

CAEOS 

*730 

-TP.4AS  CALLED  FROM  SUBROUTINE  CAFOS*) 

CAEOS 

*740 

P05 

FORMAT  <*0*,T?,*CONVEROENCE  FAILURE  IN  SUBROUTINE 

CAFOS*,/, 

CAEOS 

*750 

-T*,»FOR  M5  SUCH  THAT  XPTP*0«RTP*0»,//, 

CAEOS 

P760 

-TP,*M4  ■•,E13.6,T?6,p*6A5  *«,r 1 3.6, /, 

CAEOS 

*770 

-T?,*M5  ■•»En.6,T?6,*XPTFiO  ■*,E13.5,/, 

CAEOS 

*T80 

-TP.4P7FA0  ••.E13,6) 

CAEOS 

*700 

?n  * 

FORMAT (*0»,T*, •CONVERGENCE  FAILURE  IN  SUBROUTINE 

CAFOS**/, 

CAEOS 

*600 

-TP,*FOR  A6A5  SUCH  THAT  XP50R40»P50P40»»//, 

CAEOS 

*810 

-TP, •**  ■*,E 1 3 ,0,TP6,4MS  ■•«F13,6,/, 

CAEOS 

*8*0 

-fP,»A6A5  ••,E13.6.T?6,»XP50P40»*,E13.S,/, 

CAEOS 

*830 

-TP,4P50P40  ■•,ri3.6) 

CAEOS 

*  840 
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APPENDIX  0 
SUBROUTINE  CAEOS 


CHEMICAL  LASER  ANALYSIS  PROGRAM  ICLAR) 
OVERLAY  RRS 


rase  *  o- 1 s 


POT  FORMAT  <*0*.T?.*CONVCRf.ENCF  FAILURE  IN  SUBROUTINE  CAEOS*. /, 
«T?«*EOR  N*  SUCH  THAT  XwPNS  ■  MINIMUM  MPVS*,//, 

-T?,*»IS  ■*.E13.6.T?6,*A6AS  ■••E13.6./. 

-T?,*MA  ■*,E13.A.TJ»6,*XVRMS  ••.M3.6) 

END 


CAEOS  mo 
CAEOS  £060 
CAEOS  MTO 
CAEOS  Hit 
CAEOS  MOO 


APPFNOIX  n  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAPI 

SUBROUTINE  INPRS  OVERLAY  PRS  PAGE  D-19 


SUBROUTINE  INPRS 

INPRS 

0100 

c 

INPRS 

0110 

c 

INRRS 

oi?e 

c*« 

••INPRS 

0130 

c« 

•INPRS 

0  1  AO 

c* 

INPUT  SUBROUTINE  (INPRS) 

•INPRS 

0150 

c» 

•INPRS 

0  J  AO 

c»« 

••INPRS 

0  1  TO 

c 

INPRS 

0180 

c** 

••INRRS 

0190 

c« 

•INPRS 

o?oo 

c» 

SUBROUTINE  INPRS  CONTROLS  THE  INPUT  OF  INITIAL  OATa 

FOR  THE 

•INPRS 

0210 

c* 

PRESSURE  RECOVERY  SECTION. 

•INPRS 

0220 

c* 

•INPRS 

0230 

c« 

INPUT/OUTPUT  VARIABLES! 

•INPRS 

0240 

c* 

•INPRS 

0250 

c* 

A3A? 

•  SUBSONIC  01EEUSFR  E* IT-TD-ENTRANCE  AREA  RATIO 

•INPRS 

02A0 

c* 

AT  A  A 

•  SUBSONIC  OIEEUSER  EXIT-TO-ENTRANCE  APEA  RATIO 

•INPRS 

02TO 

c* 

EJECT 

m  CONTROL  VARIABLE  SUCH  THAT! 

•INPRS 

0260 

c» 

■  »N0«  FOR  NO  PRESSURE  RECOVERY  SUBSYSTEM 

•INPRS 

0290 

c* 

■  «DIF«  FOR  A  SUPERSONIC-SUBSONIC  OlEFUSFR  SUBSYSTEM 

•INPRS 

0300 

c* 

«  "CAE”  FOR  A  CONSTANT-AREA,  SUBSONIC-SUPERSONIC 

EJECTOR 

•INRRS 

0310 

c« 

SUBSYSTEM 

•INPRS 

0320 

c* 

■  "SSE«  FOR  A  CONSTANT-AREA,  SUPERSONIC-SUPERSONIC  EJECTOR 

•INPRS 

0330 

c* 

SUBSYSTEM 

•INPRS 

0340 

c* 

ETA12 

•  NORMAL  SHOCK  diffuser  coefficient 

•INPRS 

0350 

c* 

05 

■  PRIMARY  stream  oamma 

•INPRS 

0300 

c« 

UNIT 

■  SUPERSONIC-SUPERSONIC  EJECTOR  CONTROL  VARIABLE 

SUCH  THAT! 

•INPRS 

03TO 

c* 

•  "ULP"  FOR  THE  UPPER  LIMIT  POINT 

•INPRS 

0300 

c* 

»  «XSP»  FOR  THE  7UK0SK I  SEPARATION  POINT 

•INPRS 

0390 

c* 

„  „MPP»  FOR  THE  matched  pressure  point 

•INPRS 

0400 

c* 

NNS 

«  PRIMARY  STREAM  MOLECULAR  MEIOMT  IKO/KMOLEJ 

•INPRS 

0*10 

c* 

PRSSl 

•  CONTROL  variable 

•INPRS 

0*20 

c* 

PRSS2 

•  CONTROL  VARIABLE 

•INPRS 

0*30 

c* 

PSO 

■  PRIMARY  STREAM  STAGNATION  PRESSURE  tPAI 

•INPRS 

0**0 

c» 

PT 

-  AMBIENT  PRESSURE  (PAJ 

•INPRS 

0*50 

c» 

SET PRS 

•  CONTROL  VARIABLE 

•INPRS 

O*A0 

c» 

•INPRS 

0*TO 

c» 

NOTE! 

ALL  INPUT  IS  IN  SI  UNITS. 

•INPRS 

0*60 

c* 

•INPRS 

0*90 

••INPRS 

0500 

c 

INPRS 

0510 

c 

INPRS 

0520 

IMPLICIT  REAUL.N.N} 

INPRS 

0530 

c 

INPRS 

05*0 

COMMON/MA IN5/5ETPRS 

INPRS 

0550 

c 

INPRS 

0500 

COMMON /PRS 1 /PRSSl 

INPRS 

0570 

c 

INPRS 

0580 

COMMON/PRS3/A3A2,ATA6.ETA1?,LIN!T,MV5,PT,T50 

INPRS 

0590 

c 

INPRS 

OAOO 

CONNON/PRSS/EJECT 

INPRS 

0610 

c 

INPRS 

0620 

COMMON/PRS6/G5.P50 

INPRS 

0630 

c 

INPRS 

06*0 
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APPENDIX  0  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 

SUBROUTINE  INPRS  OVERLAY  PRS 

PAGE 

D-?0 

DATA  CAE/3HCAE/,NO/?HNO/,SSE/3HSSE/ 

INPRS 

0*50 

C 

INPRS 

06*0 

NANEL I ST/NLP95/A3AA. ATAA. ET  A1 ?«95  »Mv5.P50«P7 ,750 

INPRS 

0*T0 

C 

INPRS 

0*90 

C 

INPRS 

0**0 

0700 

c» 

•INPRS 

0710 

c* 

SET  OEFAULT  VALUES 

•tNRRS 

07?0 

c« 

•INPRS 

INPRS 

0730 

c 

0750 

c 

INPRS 

07*0 

lE(SETPRS.EQ.NO)  90  TO  101 

INPRS 

0770 

A3AIO.0 

INPRS 

0790 

A7AA-3.0 

INPRS 

07*0 

EJECT-CAE 

INPRS 

0900 

etaje-o.ts 

INPRS 

0910 

85»1.?* 

INPRS 

09*0 

LIMIT«3H7SP 

INPRS 

0930 

HVA«?0,?OA 

INPRS 

09*0 

RSO*3.10?«AE«O6 

INPRS 

0950 

RT«i.01J?SE*05 

INPRS 

09*0 

T50«?.9|*9E*03 

INPRS 

0970 

SETPRSnNO 

INPRS 

0990 

c 

INPRS 

08*0 

c 

INPRS 

o*po 

£•••< 

0*10 

c* 

•INPRS 

0*?0 

c* 

CONTROL  STATEMENTS 

•INPRS 

0*30 

c* 

•INPRS 

0**0 

0*50 

c 

INPRS 

09*0 

9 

INPRS 

0*70 

101 

HRITE(ft.EOl) 

INPRS 

0*90 

»EA0(5,E02)PRSS1 

INPRS 

0**0 

IF(PRSSl.EO.NO)  RFTURN 

INPRS 

1000 

HRtTE(«,?03) 

INPRS 

1010 

READ (5, ?0?) PRSS? 

INPRS 

I0?0 

IE(PRSS?.EO.NO>  90  TO  10? 

INPRS 

1030 

RENINO  3 

INPRS 

10*0 

READ(3)A3A?,A7A*,EJEC7,ETAl?,05,LIMIT.N)tS,PSO»PT,T50 

INPRS 

1050 

RETURN 

INPRS 

10*0 

104* 

NRITE(ft,?OA) 

INPRS 

1070 

READ (5,?0?) EJECT 

INPRS 

1090 

IE (EJECT. EQ. NO)  RETURN 

INPRS 

10*0 

IE (EJECT. EG. CAE)  00  TO  103 

INPRS 

1100 

IE (EJECT. EO. SSE)  90  TO  10A 

INPRS 

1110 

VRITE (6. 70S) 

INPRS 

ll?0 

VRITE(A,?09)A3A?.ETA1? 

INPRS 

1130 

90  T 

INPRS 

11*0 

a  *i 

JR  I T  OS) 

INPRS 

1150 

NR',  .({*t?07)  A3A?.A7A6.ETAl?,05.NN5.P50tP7,T50 

INPRS 

1160 

00  (0  105 

INPRS 

1170 

10A 

VRlTE (*,?08) 

INPRS 

1190 

READ (5. ?0?) LIMIT 

INPRS 

11*0 

i 

•] 


I 


\ 


i 

i 
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APPfcNOIX  0 
SUBROUTINE  INPRS 


CHEMICAL  LASER  ANALYSI5  PROBRAM  (CLAP) 
OVERLAY  PBS 


page  o-?i 


10* 


c 

c 

c*»* 

c» 

c* 

c* 

c  •  *  « 

c 

c 

201 

202 

?0J 

204 


205 

206 

207 

208 

209 


*BI7E(6.20S> 

MRITC  (A.  209 1  A7A6.flS.N»S,P«iO.P7.T50 
PC  AO  (r  « Nt  PBS ) 

BCNINo  3 

RRITE (3) A3A2.ATA6.£jFCT,ETAl?,8*,LIMIT»NMS,PSn,P7,T*0 


FORMAT  STATFMf NTS 


INPRS 
INPPS 

tnprs 

INPPS 
INPPS 
INPPS 
INPPS 
»••••••** INPRS 

•INPPS 
•INPPS 
•INPPS 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••INPRS 

INPPS 

INPPS 

CORN AT (•l»«T2«,APC  MEN  PPfSSUPC  PECOVCPT  SFCTION  INPUTS  RfQUIPCD»*INPPS 
-*/»  INPPS 

FORMAT (A3I  INPPS 

FORMAT (#0*.T2. “SHOULD  iNPUT  DATA  PC  PEAO  FROM  TAPE37*,/)  INPPS 

FORMAT ( •  j •• T?» • INPU1  TWC  PPESSUPF  RECOVERY  SU9STS7FM  FROa  TNC  FOtLINPRS 
-OWING  CISTl*.//*T?»««Nf,»  FOP  NO  PPFSSUPC  RFCOVERY  $UBS> STEM*,/. T2INPWS 
-,*rf)IFH  FOP  A  SUPFPSOMC-SUPSOMC  OiFFUSFR  SU8SYSTFM*./,T2,»"CAEh  INPPS 
-FOP  A  CONSTANT- AREA#  SURSONIC-SUPCPSONlC  F JFCTOR  SUBSYSTEM*, /.T2.MNPRS 
-*SSE"  FOP  A  CONSTANT-ARCAo  SUPCPSONIC-iUPFPSONIC  EJECTOR  SUBSVSTCMINPPS 
-*./)  1 1  .‘PBS 

FORMAT (*1*»T2, “INPUT  DATA  FOP  THE  PRESSURE  RECOVERY  SECTION  BY  NAMINPRS 
-CLIST.»,/,T?.*CURRCNT  VALUES  APFl«> 

FORMAT (•  •.T2.*SNLPRS*,T?A.»A3A?  ••.El3.6.TS0»*rTA12 

-E13.6.*  **./> 

FORMAT (•  •.T?.-SNLPRS*,T26,*A3AE  ■•.El3.N*TSb.*»?AN 

-113.6,/,T?.*ETAI?  •*,E13.6,T?6.*8S  ••.E13.6.T50, 

-•NWS  ••.Cl3.6,/,T?.»P*0  •• ,E 1 3 , 6 , TEA . «P7  *• 

-TS0.*TS0  ®*.El.%6,*  $•»/) 

FORMAT (•1*«TE«*INhJT  THE  tIMITINO  CONDITION  FOR  THF  SUPERSONJC-SUPINNRS 
•CRSONIC  EJECTOR  FROM  THE* t/,T2, •FOLLOWING  USTl«t//,T2,**nM.P*  FOP  INPPS 
-THE  UPPER  LIMIT  POINT*, /,T2,*»2SP«  FOP  THE  f"* OSKI  SEPARATION  POININPPS 
-T*,/,T?,*"MPP«  FOP  THE  MATCHED  PRESSURE  POINT*. n  INPRS 

FORMAT (•  ••TE.*SNLPPS«,T?<.,*A7A6  «• «El 3.6, TSO >•«*  ■•,  INPPS 

-C13.6./,T2,»MW5  -•,C13.6.T26,*PS0  a' ,EI 3.6.TS0,  INPRS 

-*P7  ■  •,E13«6«/,T<*,*T30  ■•.F13.6,*  f*,/l  INPRS 

ENO  INPRS 


INPRS 

1430 

••t 

INPRS 

1460 

INPRS 

1470 

••. 

INPPS 

1460 

INPPS 

1490 

El  3.6  * 

INPRS 

1300 

INPRS 

1310 

?nn 

210 

220 

230 

240 

230 

260 

270 

280 

290 

300 

31* 

320 

330 

340 

3S0 

300 

370 

S80 

390 

400 

410 

420 

430 

440 


320 

330 

340 

330 

360 

370 

580 

390 


APPENDIX  0  CHEMICAL  LASER  ANALYSIS  PROftRAM  (Cl*P| 


subroutine  i rtP  overlay  prs 

PAOC 

D-JJ 

SUBROUTINE  I TC» ( X, OX,  I RROBX, SION. V , Y81 VEN , FRRORY «NI T , 

ITER 

0100 

-NTVPE,XNF0,YNEQ,XP0S,YP0S,NS!0Nl,NSI8Nf > 

ITER 

0110 

c 

ITER 

BIBO 

c 

ITER 

0130 

c« 

••ITER 

0140 

c* 

•ITER 

eiso 

o 

ITERATION  SUBROUTINE  ( ITFRt 

•ITER 

ouo 

c* 

•ITER 

0 1  TO 

€•< 

••ITER 

0180 

c 

ITER 

0180 

c*< 

••ITER 

0J00 

c» 

•  ITER 

OflO 

c* 

SUBROUTINE  ITER  REREORNS  AN  ITERATION  TO  FIND 

X  SUCH  THAT  THE 

•  ITER 

OffO 

c* 

PERCENT  ERROR  IN  v  AND  VBIVEN  IS  .Lf .  TO  EBRORY  OR  THE 

PERCENT 

•  ITER 

Of  30 

c» 

DEVIATION  IN  X(!»!>  ANO  X(It  IS  .LE.  TO  ERRORX. 

•ITER 

Of  AO 

c* 

IS  'LC.  TO  ERRORX « 

•  ITER 

OfSO 

c» 

•ITER 

Of  BO 

c* 

INPUT  VARIABLESI 

•ITER 

Of  TO 

c« 

•ITER 

OfBO 

c« 

OX  ■  INCRENENT  in  INDEPENDENT  VARIABLE 

•ITER 

oroo 

c* 

ERRORX  •  MAX  PERCENT  DEVIATION  IN  X<1»1)  AND  X|I> 

FOR  SOLUTION 

•ITER 

0300 

c« 

ERRORy  •  MfX  PERCENT  ERROR  in  y  and  Y8IVE*  for  solution 

•ITER 

0310 

c» 

SI BN  ■  *1,0  OR  -1.0.  ♦/-  INCRENENTIN*  FROn  INITIAL  X 

•  ITER 

03f0 

c« 

Y  •  DEPENDENT  VARIABLE 

•  !TER 

0330 

c« 

YOIVEN  ■  6IVEN  VALUE  OF  DEPENDENT  VARIABLE 

•  ITER 

0340 

c* 

•ITER 

0350 

c» 

INPUT /OUTPUT  VARIABLESI 

•ITER 

0380 

c» 

•ITER 

03T0 

c» 

NTT  ■  ITERATION  NUMBER 

•ITER 

0380 

c* 

NTYPE  >  1  — INCREMENT,  ?— INTERPOLATION,  3— SOLUTION 

•ITER 

0380 

c* 

X  •  INDEPENDENT  VARIABLE 

•ITER 

0800 

c* 

•  ITER 

0810 

c« 

NOTE i  THE  INTERMEDIATE  VARIABLES  XNEB.  YNEB,  XROS,  YPOS, 

NS I BN 1 . 

•ITER 

04  f  8 

c« 

NSI8NJ  MUST  BE  STORED  BETWEEN  ITERATIONS. 

•ITER 

0830 

c* 

•ITER 

0440 

C*« 

••TTER 

0850 

c 

ITER 

0480 

c 

ITER 

OAT  0 

FRRORl ACTUAL, 81 VEN) ■ (ACTUAL-81 VEN> »1 00. 0/BIVEN 

ITER 

0880 

c 

ITER 

0480 

IF<ABS»ERROR|Y,YBIVEN) | •ERRORY )  80,00,10 

ITER 

0500 

10  IF(Y-YBIVEN1  f0.80.30 

ITER 

0510 

jo  nsibnj.-i 

ITER 

OSf  0 

XNERaK 

ITER 

0530 

YNEB-Y 

ITER 

0540 

80  TO  AO 

ITER 

0550 

30  NSISNJa, 1 

ITER 

0580 

XROS"X 

ITER 

05TO 

YPOS-Y 

ITER 

0580 

AO  60  TO  130.801,  NTYPE 

ITER 

0580 

5 0  IF(NIT~1»  to. to, bo 

ITER 

06(10 

BO  NS  J  BNaNS 1 8N 1 *NS 1 8Nf 

ITER 

0610 

IF(NSIBN)  80,80, TO 

ITER 

ooro 

TO  NSIBN1«NS18NJ 

ITER 

0830 

NIT«NIT,1 

ITER 

0840 
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fa i 


ARRENO!  I  0 
SUSROO*lNE  I TER 


CMIN1CAL  LASER  ANALYSIS  RRORRAN  (CLA») 
OVlRLAf  MS 


NASI  0-*S 


c 

1TCR 

0600 

c 

I  TIN 

0660 

c* 

!••?••••• iter 

06TO 

c» 

•ITIR 

0600 

c* 

INCRENENT  TO  PINO 

SOLO Y ION  INTERVAL 

•  ITER 

0600 

c* 

•  ITER 

e?oo 

c* 

•••< 

0?i  0 

c 

ITIR 

OTfO 

c 

ITIR 

OT  JO 

R«1*SI9N»0I 

ITER 

0T60 

00  TU  100 

ITIR 

OTSO 

c 

ITtR 

OTOO 

c 

ITIR 

OTTO 

c«< 

OTOO 

c« 

•ITIR 

OTOO 

c» 

INTERPOLATION 

FOR  SOLUTION 

•  ITtR 

0600 

c« 

•ITIR 

0*10 

C»< 

Wei 

0**0 

c 

ITER 

0*30 

c 

VTER 

0*440 

NO 

NTYRE«? 

ITER 

06S0 

NITaN)T»l 

IVIR 

0*60 

umn 

ITIR 

ONTO 

RATIO* (INOS-XNCO) /  l  YROS-YNEO) 

ITEO 

0**0 

X«11NER*RAT  10*  ( Y*I  VFN-YNE*  t 

I  TE(1 

0*00 

IF ( ARS (ERROR (A.  AS AYE) ) -ERROR A ) 

OO.OOdOO 

I  TEA 

oooo 

00 

NTYREO 

ITER 

ooio 

100 

I  NO 

ITER 

00*0 

142 


APRENOtX  0  CHEMICAL  LASER  ANALYSIS  PROGRAM  (ClAR) 

SUBROUTINE  MA*S  OVERL At  RRS  RASE  D-2* 

SURROUT I NE  MAAS<0. MINI  ,AAS, FLOP, ERROR, HNE*. FAR)  NAAS  OlOO 

C  HAAS  0110 

C  HAAS  0120 

(••••••••••••••••••••a.. •...•...•... •••••••• a,-. .•...••.. .•••••••••••••••HAAS  ono 

C»  »H*AS  0 l AO 

C*  SUBROUT  I  HE  (HAAS)  »HAAS  0150 

C*  *HAAS  0100 

C»A*». •••••••••••••••••••••••HAAS  01  TO 

C  HAAS  0 1 RO 

. . •••••••••••••••••••HAAS  01*0 

C»  AHAAS  0200 

C*  SUBROUTINE  HASS  CALCULATES  THE  HACH  NUMBER  (M)  GIVEN  THE  AREA  RATIO  AHAAS  0210 

C«  IA/AA)  BY  LINEAR  ITERATION.  AHAAS  0220 

C*  AHAAS  0230 

C*  INPUT  VARIABLES)  *HAAS  02*0 

C*  AHAAS  0250 

C*  AAS  ■  THE  AREA  RATIO  A/AA  AHAAS  0200 

C*  ERROR  ■  MAX  PERCENT  DEVIATION  IN  NOLO  AND  MNfv  FOR  A  SOLUTION  *HAAS  02T0 

C»  FLOW  ■  CONTROL  VARIALBF  SUCH  THAT  I  AHAAS  0200 

C*  «  "SUB"  FOR  THE  SUBSONIC  BRANCH  AHAAS  02R0 

C«  ■  "SUP"  FOP  THE  SUPERSONIC  BRANCH  *HAAS  0300 

C«  6  ■  SPECIFIC  HEAT  RATIO  *MAAS  0310 

Ca  MINI  ■  INITIAL  VALUE  OF  MACH  NUMBER  AHAAS  0320 

C*  ahAAS  0330 

C*  OUTPUT  VARIABLES)  AHAAS  03A0 

C«  ahAAS  0350 

C»  FAIL  •  ERROR  FLAO  ahAAS  0300 

c*  mnem  ■  final  value  or  hach  number  »haas  osto 

C*  AHAAS  03B0 

CA««. ••••••••••••..•••••.. •.•...••••..•.•.••••...•••,•••••••••.>. ••••••••ha AS  0300 

C  HAAS  OAOO 

C  MAAS  0*10 

implicit  real(M)  maas  0*20 

OAT A  YES/3HVES/.SUP/3HSUP/  MAAS  0*30 

C  MAAS  0**0 

C  MAAS  0*50 

CAMMUMOMUHMMMOMMMMKK.MHXMtMHttMMMMHMMMMXAIS  0*60 
C*  AHAAS  0*T0 

C*  CALCULATE  CONSTANTS  AMAAS  0*00 

C*  AMAAS  0*00 

. . .  0500 

C  MAAS  0510 

C  MAAS  0520 

B1a(B-1.0)/2.0  MAAS  0530 

011*1. O^Q)  MAAS  05*0 

02*2.0/(6M.O>  MAAS  0550 

621*1 ,0/0?  MAAS  0560 

B*»<6«1,0)/(2.0a<Q-1.0)>  MAAS  OSTO 

OAIaI.Q/6*  MAAS  0560 

C  MAAS  0560 

C  MAAS  0600 

CAA*«*«A*AA«*a**««*A*A*»««*««»*»»»*»««»«**»*A»».»«»»»»»»*««**»«*««»«A»*«MAAS  06)0 

C*  AMAAS  0620 

C»  CALCULATE  THE  SUPERSONIC  BRANCH  AMAAS  0630 

C*  aMAAS  06*0 
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ARRENDI*  0 
subroutine  *a*s 


CHEMICAL  LASER  ANALYSIS  RROARAM  tCLARl 
OVERLAY  R»S 


RAOE  o-?a 


(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••NAAS  0630 

c  MAAS  0660 

c  MAAS  0670 

MOLObMINI  maas  oaao 

IF  (FLOW,NF ,SUR  I  00  TO  ?  MAAS  0600 

00  I  J«l.?00  MAAS  0700 

Cl ■ (MOLO*AA$ ) •»04l  MAAS  0T10 

MMCWaSOMT(«lI*'(«2I*Cl*i,0)  I  MAAS  OTM 

ME A AO A ■ (MNCK—MOLP 1*100 , O/NOLO  MAAS  0730 

MOLO*MNCM  MAAS  0740 

IF(ASSl*r»AO»» .LT.tAAOA)  AETUAN  MAAS  0750 

1  CONTINUE  MAAS  OTAO 

90  TO  A  MAAS  OTTO 

C  MAAS  0T80 

C  MAAS  OTAO 

(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••MAAS  0000 

C*  «MAAS  0A10 

C»  CALCULATE  THE  SUBSONIC  BAanCH  »MAAS  OBM 

C»  aMAAS  0030 

(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••MAAS  0040 

c  MAAS  OBSO 

C  MAAS  OSAO 

?  no  3  J«i»MO  MAAS  OOTO 

C1»1.0*91*NOLO*MOLD  MAAS  OBBO 

MNER»< (BF*C1 >«»04> /AAS  MAAS  OBOO 

xcaaoa«(Nnea-molo) »ioo. o/molo  maas  oaoo 

MOLOaMNFM  MAAS  0A10 

IF (ABS(XERROR) »LT .EAROA)  AETUAN  MAAS  OABO 

3  CONTINUE  MAAS  0A30 

C  MAAS  0A40 

C  MAAS  OASO 

(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••NAAS  OAAO 

c*  *MAAS  OATO 

(•  C0NVEA9ENCE  FAILURE  *MAAS  OAAO 

C*  *MAAS  OAAO 

(•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••MAAS  1000 

c  MAAS  -tmo 

c  maas  10M 

4  MAI TE ( 6  «5 ) FLOW  *6*M I NI t MNFW • A AS « XERA0R  • ERROR  MAAS  1030 

FAIL»VES  maas  1040 

A  FORMAT (•1*.T?,*C0NVCR«ENCE  FAtLURE  FOR  •,A3.»S0NIC  •.  MAAS  1030 

••BRANCH  IN  SUBROUTINE  MAAS*«/<  MAAS  1060 

-T?,*9  ••.ei3,6t?X,«MINI  ••.E13.0./,  MAAS  1070 

•T?,»MNEW  ••»E13,6»?X»*AA5  ••.E13.6./,  MAAS  1000 

-r?,*XFRAOR  •*.E13,6.?Xt*FRR0R  ■•.CIS. 6)  MAAS  1OR0 

END  MAAS  1100 


APPENDIX  P  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  M I N  OVERLAY  P»S 

PAGE 

D-P6 

SUPROOT1NF  MIN (MS  J , EUNC .NT  VPC .NIT.EAtL) 

MIN 

OtftO 

C 

MIN 

0110 

c 

M|N 

01P0 

c«« 

‘•MIN 

0130 

c^ 

•MIN 

0  1  A0 

c« 

MINIMISATION  SUBROUTINE  (MIN> 

•MJ  N 

01S0 

€• 

•MIN 

0160 

c*« 

‘•MIN 

01?0 

c 

MIN 

0  1 A0 

r  •« 

*»NIN 

0190 

o 

WM  I  N 

AP00 

c« 

SUBROUTINE  MIN,  AS  APPLIED  TO  A  CONST ANT- ABF A ,  SUBSONIC  SUPERSONIC 

•  MIN 

0?10 

c* 

EJECTOR,  PERFORMS  A  SEARCH  AND  INTERVAL  HALVING  PROCEDURE  TO  EINO 

•MIN 

0PP0 

c* 

MSI  MICH  THAT  EUNC(MSl)  IS  A  MINIMUM. 

•MIN 

OP30 

•  MIN 

OPAO 

c« 

INPUT  VARIABLES! 

•MIN 

0PS0 

c* 

•MIN 

AP60 

c* 

EUNC  •  FUNCTION  OE  MSI 

•MIN 

OPTO 

c« 

•MIN 

OPAO 

c* 

INPUT /OUTPUT  VARIABLES! 

•MIN 

0?90 

c« 

•MIN 

OSAO 

c* 

MSI  •  SECONOABV  MACH  NO.  AT  THE  MIXING  TUBE  ENTRANCE 

•MIN 

0310 

c« 

NIT  •  JTERATION  NUMBER 

•MIN 

03?0 

c* 

NTVPE  «  l.J  -  SEARCH 

•MfN 

0330 

c* 

•  T,A  -  SOLUTION 

•MIN 

0340 

c» 

•MIN 

0350 

c* 

OUTPUT  VARIABLES! 

•MIN 

0360 

c* 

•MIN 

0370 

c* 

FAIL  •  ERROR  FLAG 

•MIN 

03*0 

c« 

•MIN 

0300 

c«< 

••MIN 

0  A00 

c 

MIN 

0610 

c 

MIN 

06?0 

IMPLICIT  REAL (Ml 

MIN 

0630 

REAL  NO 

MIN 

0660 

DATA  OX.XLON.XEBNOP.VERROR/O.l  , 1  .OE-0  3.0. AP5, 1 .0/ 

MIN 

0650 

DATA  VFS/JHYES/.NO/PHNO/.PART/AHPART/ 

MIN 

0660 

c 

MIN 

0670 

ERROR ( ACTUAL, 61 VEN| • ( ACTUAL >01 VEN 1 • 1 00, 0 /GIVEN 

MIN 

0660 

c 

MIN 

0690 

c 

MIN 

0500 

c«< 

••MIN 

0510 

c« 

•MIN 

05PO 

c» 

NO  CAE  SOLUTION  EXITS  FOR  CURRENT  VALUE  OF 

•MIN 

0530 

c* 

MSI.  INCREMENT  MSI  AND  SEARCH  FOR  SOLUTION, 

•MIN 

A560 

c» 

•MIN 

0550 

C*« 

*»MIN 

0560 

c 

MIN 

0570 

c 

MIN 

0560 

lE(FAIt,NE,PART)  90  TO  100 

MIN 

05«0 

MSlaMSl.XEBROB 

min 

0600 

IEIMS1.LT.XL0N>  60  TO  10A 

MIN 

0610 

EAILmNO 

MIN 

A6P0 

RETURN 

MIN 

0630 

100  IEiNIT.NE.I)  60  TO  101 

MIN 

0660 

H5 


APPENDIX  n  CHEMICAL  LASFR  ANALYSIS  PB06RAM  (CLAP) 


SUBROUTINE  MIN  OVERLAY  PRS 

PASE 

D-*T 

ONS 1 *OX 

MIN 

06S0 

MSILOWbXLOW 

MIN 

0660 

101 

NIT.N|T»1 

MIN 

06T0 

60  TO  <10*.10*.10T)«NTYPE 

MIN 

0660 

C 

MIN 

0660 

C 

MIN 

0700 

<;•••< 

0710 

c» 

•MIN 

07*0 

c« 

STORE  UPPER  BOUND  EOR  MS] 

•MIN 

0730 

c* 

•MIN 

0740 

c*»«< 

0750 

c 

MIN 

0760 

c 

MIN 

0770 

10? 

X1-MS1 

MIN 

0700 

Yl-FUN? 

MIN 

0790 

103 

MS  I "MSI -OHS  1 

MIN 

0800 

IF(MSI.LT.MSILOW)  60  TO  108 

MIN 

0610 

NTYPE-? 

MIN 

06*0 

RETURN 

MIN 

0630 

C 

MIN 

OBuO 

C 

MIN 

0630 

0060 

c» 

•MIN 

0670 

c» 

STORF  LOWER  BOUND  FOR  MSI 

•MIN 

0600 

c» 

•MIN 

oeoo 

c••^* 

L600 

c 

MIN 

0910 

c 

MIN 

09*0 

10* 

XP-MS1 

min 

0930 

YE-FUNC 

MIN 

0940 

1F(Y?.«T.Y1>  60  TO  10* 

MIN 

0930 

80  TO  io? 

MIN 

0960 

c 

MIN 

0970 

c 

MIN 

0960 

0990 

c* 

•MIN 

1000 

c» 

TEST  FUNC  FOR  MINIMUM  ANO  INTERVAL  HALVE 

•MIN 

1010 

c* 

•MIN 

J0*0 

<:*••< 

1030 

c 

MIN 

1040 

c 

min 

10S0 

I  OS 

IE(*BS(ERR0P(Y?,Y1)).LE.YERR0R|  60  TO  106 

MIN 

1060 

DMSI-0MS1/E.0 

min 

1070 

IF(OMS) .LT.XERROR)  00  TO  106 

MIN 

1960 

MSlLOW»X? 

MIN 

1090 

MS1-X1 

MIN 

1100 

00  TO  103 

MIN 

1110 

c 

MIN 

1S?0 

c 

MIN 

1130 

1140 

c* 

•MIN 

1130 

c* 

MSI  FOR  MIN  FUNC  HAS  BEEN  FOUND  BUT  SOLUTION  WAS  LOST 

•  MIN 

1160 

c* 

•MIN 

1170 

1180 

c 

MIN 

11  "0 

APPrNDlX  0  CHEMICAL  l  ASM  ANALYSIS  MOflftAN  C Cl  A^) 


surroutinf  nth  ovfrlav  prs 

PAOF 

O-PR 

c 

MIN 

1  POO 

1  0P> 

IPlVP.LP. YU  80  TO  107 

MIN 

ipio 

N*l«*l 

MIN 

1PP0 

NTVPF»3 

MIN 

1P30 

rftorn 

MIN 

i  pa  6 

c 

MIN 

IPSO 

c 

MIN 

I  POO 

(:••• 

»•••* 

•••MIN 

1  PTO 

c* 

•  MIN 

1  PRO 

c« 

MSI  rOR  MIN  FUNC  HAS  RFFN  FOUND  AND  SOLUTION  SAVED 

•min 

IPSO 

c» 

•MIN 

J300 

C«*# 

•••MIN 

1310 

c 

MIN 

I3P0 

c 

MIN 

1330 

tnT 

NTVRP"* 

MIN 

I3A0 

RETURN 

MIN 

1  3S0 

C 

MIN 

)  3A0 

C 

MJN 

1  ST0 

c*»« 

•••MIN 

I  3R0 

c» 

•MIN 

I  300 

r* 

STARCH  TAT L  URF 1  NO  CAE  SOLUTION  POUND 

•MIN 

1400 

c» 

•  MIN 

1410 

c«»» 

•••MtN 

1  *P0 

c 

MIN 

1430 

c 

MIN 

1440 

1  nit 

MRITF  (ft.PODMSl  .MS1L0W.0MS1 

MIN 

l«so 

FAR«vrS 

MIN 

1440 

c 

MIN 

1470 

c 

MIN 

l  4R0 

£••• 

»•••« 

•••MIN 

14*0 

c« 

•  MIN 

1S00 

c* 

rORMAT  statements 

•  MIN 

isie 

r» 

•  MIN 

ispo 

C»*» 

•••MIN 

1S30 

c 

MIN 

1S40 

c 

MIN 

1SS0 

P01 

F0RMAT<«1».TP,*MS1  -• . E 1 3 .6, ? A ,«REL0*  CORF*  LIMIT  MSI  »•. 

MIN 

1S60 

-fis.4..'.T?.*ro»  oMSi  M.rn.ti 

MIN 

1ST0 

e:NP 

MIN 

1 SRO 

147 


rV 


I  3&fiUiAt£ 
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APPFNOIX  0 
SUBROUTINE  NSOS 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 
OVERLAY  PRS 


PAGE  0-29 


SUBROUTINE  NSOS (G.M) ,RO.M?,p?Pt ,P?oP10.T?T) .TEflTIO)  NSOS 
C  NSOS 
C  NSOS 

c*  PNSOS 
c*  NORMAL  SHOCK  OIFFUSCR  SUBROUTINE  (NSOSi  JNSDS 
C»  PNSDS 
Cppppppppp»pp#pppppppppppppppppp*pppppppp«ppppp«ppppppppppppppppppppppppNSC3 
c  NSOS 
Cpppppppppppppppppppppppppppppppppp*ppppppp»ppppppppppppppppppppppppppppNSOS 
c«  PNSOS 


C*  SUBROUTINE  NSCS  CALCULATES  THE  PRESSURE  RATIO  ACROSS  A  CONSTANT-  *NSOS 
C*  AREA,  SUPERSONIC  OIFFUSCR,  THE  STATIC  PRESSURE  RATIO  IS  TAKEN  AS  pNSDS 
C»  R0*(RY/PX)  FOR  a  NORMAL  SHOCK  AT  THE  ENTERING  MACH  NUMBER.  ALL  PNSOS 
C*  OTHER  PROPERTIES  ARE  CALCULATE!)  FROM  THE  ISENTROPIC  FLOW  RELATIONS  PNSOS 


C»  TO  RE  CONSISTENT  KITH  THE  ENTRANCE  ANO  EXIT  MACH  NUMBERS.  PNSOS 

Cp  PNSOS 

CP  INPUT  VARIABLES  I  PNSOS 

CP  PNSOS 

CP  6  -  GAMMA  PNSOS 

CP  Ml  p  ENTRANCE  MACH  NUMBER  PNSOS 

CP  RO  ■  NORMAL  SHOCK  DIFFUSER  COEFFICIENT  *NSOS 

CP  PNSOS 

CP  OUTPUT  VARIABLES)  PNSOS 

Cp  PNSOS 

CP  *2  ■  EXIT  NACH  NUMBER  *NSDS 

C»  P2P  1  ■  FXIT-TO-ENTRANCE  STATIC  PRESSURE  RATIO  PNSOS 

C*  P20P 1 0  p  FXIT-TO-ENTRANCE  STAGNATION  PRESSURE  RATIO  PNSOS 

C*  T2T 1  p  tXlT-TO-ENTRANCE  STATIC  TEMPERATURE  RATIO  *NSD$ 

C«  T20T10  p  EX IT-TO-ENTRANCE  STAGNATION  TEMPERATURE  RATIO  *NfOS 

CP  PNSOS 

CpppppppppppppppppppppppppppppppppppppppppppppppppppppppppPpppppppppppppNSDS 
c  NSOS 

c  NSOS 

IMPLICIT  REAL(M)  NSOS 

c  NSOS 

TOTM(GX,MX)Pl.O«0.5P(dX-lrO)PMXPMX  NSOS 

PORN (GX .MX J«(I«0*0.5P<OX“1  .0|PMXPMX)*P(GX/(«i:-I,t')  )  NSOS 

C  NSDS 

M2»SORT ( (2.0* (0-1 ,0)pM1*mI)/(2.0pGpM1pM1-g*1 .0) )  NSOS 

P?P!«R0p (2. 0«G*M1 PMi-o. i ,0|/(G*1 .0)  NSOS 

PI0PI«P0PN(G.M1)  NSOS 

P?0P2«R0PM(G,M2)  NSDS 

P?0P10»R20P2*P?Pl/PI0Pi  USDS 

T?(lT  1 ,0  NSDS 

TlflTlPTOTMfG.Mn  NS05 

T?nT?*T0TM(0,M2)  NSDS 

T2TipTioTlPT20TlO/T20T2  NSDS 

END  NSDS 


0100 
0110 
01  BO 
0130 
0140 
01S0 
0160 
01  TO 
OIBO 
0 1  CO 

0200 
0210 
0226 
0230 
0240 
02S0 
0260 
0270 
02B0 
0290 
0300 
0310 
0320 
0330 
OSAO 
0390 
0360 
03T0 
0360 
0  390 
04C0 
0410 
0420 
0430 
0440 
0490 
0460 
04TO 
C4B0 
0490 
0900 
0910 
0920 
0930 
0940 
0K9O 
0900 
09T  3 
OKRtf 


APPEND 1 X  H  '  VTICAL  LASFP  ANALYS1  S  PROGRAM  (CLAP) 

SUBROUT  INF  OUTPPS  OVFRLAY  PRS  PAGE  D-3A 

SUBROUTINE  OUTPPS  OUTPRS  0100 

c  outpps  one 

C  OUTPPS  0120 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••OUTPRS  0130 

C»  *OUTPRS  01*0 

C*  OUTPUT  SU8POUT INC  (OUTPRS)  *OUTPRS  0150 

C*  *OUTPRS  0160 

^'••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••»«****«0'TPRS  01  TO 

C  OJTPRS  0180 

^•••••••••••••••••••••••••••••••••••••••••«  ••••••••••••••••••••••••••••OUTPRS  0190 

C*  -OUTPRS  0200 

C«  SUBROUTINE  OUTPRS  PM I NTS  THE  PRESSURE  RECOVERY  SECTION  RESULTS  OF  *OUTPRS  0210 

C*  PROGRAM  CLAP  IN  SI  UNITS  ON  TERMINALS  WITH  A  MINIMUM  OF  132  -OUTPRS  0220 

C*  CHARa^FRS  PFR  LINE,  -OUTPRS  0230 

C*  •OUTPRS  02*0 

. . . . . . . . .  0260 

C  OUTPRS  0260 

C  OUTPRS  02T0 

IMPLICIT  REAL(L.M)  OUTPRS  0280 

C  OUTPRS  0290 

COMMON/inS*/AltGl,M*l.Ml,Pl,P10,Rl,RIfl,T|,T10  OUTPRS  0300 

C  OUTPRS  0310 

COMMON/PRS2/A2, A3.AA.A7 ,f TA?3,FTA6T,G2.0.4.0*,G6.GT,MW2,MW3»MW*.  OUTPRS  0320 

-M-6.MW7, M2. MJ, M*.M6tM7tP2.P20.P3.P30.P*.P*O,P5.P6*PAO.PTO.R2.iT20,  OUTPRS  0330 

-R3tR.10fA*«R*fl<RS«R60tP6,R60»R7|R7fl«T?*T2o»T3» I 30 . T* , T*o . 15. T6 . T60 . OUTPRS  03*0 
-YT,TT0,W2Wl,W3Wl.W*hl,W6Wl,W7Wl,X2Xl.X3Xl.X*Xl,X6Xl ,X6*;,X7X1  OUTPRS  0350 

C  OUTPRS  0360 

COmmON/PPS3/A.(A2,ATA6,FTA12,LIMIT  .MVS.P7.T50  OUTPRS  C370 

C  OUTPRS  0380 

C0MM0N/P9S* 'A5.A6.M5.WSW1  OUTPRS  0390 

C  OUTPRS  0*00 

COMMON /PRSS /EJECT  OUTPRS  0*10 

C  OUTPRS  0*20 

COMMON/PRSfi/GS.PSO  OUTPRS  0*30 

f  OUTPRS  0**0 

DATA  CAE/3HCAE/,MPP/3HMPP/,SSE/3HSSE/,ULP/3MULP/.Z3P/3M2SP/  OUTPRS  0*50 

C  OUTPRS  0*60 

C  OUTPRS  0*TO 

. . . . . . .  o*ec 

C*  •OUTPRS  0**0 

C«  OUTPUT  INITIAL  DATA  -OUTPRS  0500 

C*  -OUTPRS  0510 

— •••••••••••••••••••••••••oouTPRS  0520 

C  OUTPRS  0530 

C  OUTPRS  05*0 

WRITE  120.201 1  OUTPRS  055# 

ir (FJCCT.EQ.CAE)  00  TO  101  CUTPRs  0560 

IF (EJECT .EQ.SSC)  00  TO  102  OUTPRS  35T0 

WRITE(20.202)A3A2.EJECT.CTA12  OUTPRS  3580 

WRITE (JO. 206)  OUTPRS  05*0 

00  TO  103  OUTPRS  0600 

101  WRITE (20. 203) A3A2.ATA6, EJECT. ETA12.05.MWS.P50.PT.T50  OUTPRS  061C 

WRITE!  ?0. 205)  OUTPRS  Of-30 

80  TO  153  OUTPRS  0630 

102  WRITE (20. 20*)ATA6, EJECT, 06, LIMIT. MW«,P50,PT,T50  OUTPRS  06*0 


ARRFNPIX  0 
SUBROUTINE  OUTRRS 


CHEMICAL  LASFR  ANALYSIS  PRpfRAM  (CLAP) 
OVERLAY  RRS 


RAOF.  0-31 


WRITE <20f20*> 


OUTRRS 

OUTPRS 

OUTRRS 

‘•OUTRRS 

•OUTRRS 

•OUTRRS 

•OUTRRS 


OUTPUT  RESULTANT  OATa 


•OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

OUTRRS 

UtiTRRS 


WRITEC20.20T)A1, 
IF ‘EJECT. EQ.SSE) 
UR!7E<?<».?0S>  A2, 
WRITE (20,209) 
IF(EJECT.EQ.CAE) 
•RITE  (20,21 1 1  A3, 
IF (EJECT .NE.CAE) 
WRTTE(2Q.2121AA. 
waiTC(JO**lT> 

00  TO  I  »>R 

ISiLl'  iT.eO.ULP) 

1RCLINIT.E0.2SP) 

IRcLINiT.EO.iARR, 

WRITCCEO«*IT) 

WRITE CSAcFlO) AS t 

IRCEJECT.EO.CAE) 

IF ‘EJECT. EO.SSEl 

►-RIU(?Q,221IA6. 

WR*TE(20»?2?1AT« 


01.NW),Ml,ri,P10.Rl,R10.T).T10 
00  YO  10* 

ETAU.BT.NNZfNR.PR.P'O.RT.PRa.TJ.TRft.WFWl.RFXl 
WRITE  (20.218) 

ETa2J.33,NR3.N3,P3,P3o?R3,R30.T3.T3(),W3W1,X3XI 

RETURN 

Q4,MMA.M4.R*,P*0«R4.R*0,T4«T40«M4ttj ,X4XI 


WRIT” 170.214) 

WRITE  (20.215) 

•JRITF  (20.216) 

OS,NWS,WS,RS,RSO,RS.R50.TS»T50.W4W1,XSX1 
WRITE (20.219) 

WHITE (20.220) 

06.MN6,M4,R6,R60,&6,R60«T6.T60»W6Ui,XpAl 
ETAftT  .07  »MXT  jNT,R7«RTo«R)*R?O.T7tTTO»WTWl»X)’X) 


. . . . . 

•OUTRRS 

FORMAT  STATEMENTS  *OUTRRS 

•OUTRRS 

OUTRRS 

OUTRRS 

FORMAT (*1*,T54. •PRESSURE  RECOVERY  SECTION*,  /V.TAO. •INITIAL  OAT  A  l  •(  OUTRRS 
FORMAT  C*0«tT32**A3A2  ■• ,£1 3.6 ,T66-*E JECT  ■•,A13»/,  0UVRR5 

-T32.*etAlt'  ■'>,En.tS)  OUTRRS 

FORMAT ( »0* » T3C, • A3A2  ■• ,U 3.6, T66, • AT66  »*,E)3.6,/,  OUTRRr 

*T3r,*EJFCT  ■”>A13t766,*'TTAl?  ■*,E13.6  /,  OUTPRS 

-T3S,»0S  n**EI3,b«T66,*MW5  ’■•*£13.6,*  KO/KMOLE* ,/ ,  OUTPRS 

-T3?,*PM0  ■•.EU.6,*  MA*.  66,*PT  ■•.E13.6,*  PA*,>.  OUTRRS 

-T32,»T*,0  ■«,Ci3,6v*  K*)  OUTPRS 

FORMAT  i'(i«*T32,‘.ATA6  ■o,E13,6,T66,»EJECT  «**A)3./,  OUTPRS 

-T32:«0*»  •«.E13,6,166,«LIM1T  *».Al3,/.  OUTRRS 

“T32,»M«  ‘•*,Ei3.f.-  KO/KMPL€«*T66f*RSO  ■•.fi3.6»*  RA*»/»  OUTPRS 

“TS?,»RT  "•ttl3.ii,*  PA> v 1 6fc«*T*0  ••♦C13,6s*  K»)  OUTRRS 

FORMAT  C«0« , TCiR* ‘RESULTANT  C*rAtfc,//,T;3-'Rn 1NT  »  LASER  CAVITY  *.X»3UTRRS 
-T  AKO  NORMAL  SMOCK  OIFFUTfO  JNYHANCt*)  OUTPRS 

FORMAT  *f.*tTS9,4RESULTt'iT  0A7A  l  *, // ,T?3.  *POTNT  1  LASER  CAVITY  EXIOUTPRS 
"T  AND  WSTANY-ASFA  SCIRERSONIC*  T'jRCiTtONLC  I  JECTOR*,/,T32,*StC0Ni.'AR0UTP5i5 
-Y  ENTRANCE*;  OUTPRS 


’JMAmiii.ii  1 1  ■  -.w-i.  i  . 'i.i* 
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subroutine  outprs 
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OVERLAY  PRS 


PAGE  0-32 


?0T 

u0 

209 

?)0 

211 

?12 

213 

214 

215 

21* 

217 
21 P 

219 


FORMAT (*0*» 

-T32,**i  **»E 1 3.6 » •  S-M2/K*0LE*,Ti6.*Gl  *«,E13.6,/,  OUTPRS 

-T32,*M*i  **,E13.6,«  KG/KM0LE*.T66.*Mi  ■*«F13.6,/«  OUTPRS 

•T32t*Rj  ■•.E13.6.*  PA*,T66.*P10  **,F13.6«*  PA*,/,  OUTPRS 

-T32,*R1  ■*»E13,6,*  KS/N3*, T 66,*R1 0  ■•.E13.6,*  KG/M3*./*  OUTPRS 

-T32,*TJ  »*»E13,fi»*  K*.T66.*T10  -*,E13.6,*  K*)  OUTPRS 

FORMAT (*0*,T23,*POINT  2  NORMAL  SHOCK  DIFFUSER  EXIT  AND  SUBSONIC  OOUTPKS 
-IFFUSER  ENTRANCE*,//,  OUTPRS 

-T32,*A2  **»E 1 3,6. •  5-M2/KM0LE*.T66»*FTA12  **,E13.6,/,  OUTPRS 

-T32,*G2  **.E13.6.T66,*NN2  **.E13.6,*  KG/KmoLE*./.  OUTPRS 

-T32«*M2  **.E13.6,T66,*P2  **»E13.6,*  PA*,/,  OUTPRS 

-T32,*P2p  **»E13.6»*  PA*.T66,*R2  ■•.E13.6,*  K0/M3*,/,  OUTPRS 

-T3?,*R20  »*,E13.6,«  K6/M3*,T66.*T2  -*,E13.6.*  K*,/,  OUTPRS 

-T32,*T20  **,E13.6,«  K*,T66.*N2N1  **,F13,6,/,  OUTPRS 

-T32,*X2X1  *«.E13.6)  OUTPRS 

FORMAT (SO*. T23»*P0INT  3  SUBSONIC  DIFFUSER  FXIT  *>  OUTPRS 

FORMAT (•♦*.T55,*AN0  SUDDEN  ENLARGEMENT  ENTRANCE*)  OUTPRS 

FORMAT (*0*»  OUTPRS 


OUTPRS 

OUTPRS 

OUTPRS 

OUTpFS 

OUTPRS 

OUTPRS 


“T32,*A3  «*.E13.6.*  S-M2/KMOLE*.Tb6,*ETA23  **,E13.6,/, 

-T32,*G3  ■  *.E13.6,T66.*Nt'3  **,E13.6,*  KS/KmOLE*,/, 

-T32,*M3  ■*.E13,6.T66.*P3  **»E13.6.*  PA*,/, 

-T3?,*P30  «*.E13,6.*  PA*,T66,*R3  **,En,6,*  KG/MJ*,/, 

-T32.*R30  «*.E13.6«*  KG/M3*.T66.*T3  **,E13.6.*  K*,/, 

-T32,*T30  **.E13.6,*  X*,T66.*N3Nl  -*,E13.6,/, 

“T32**X3X 1  **»E 13,6) 


OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 

OUTPRS 


FORMAT <•()*, T23, ‘POINT  4  CONSTANT-AREA,  SUBSONIC-SUPERSONIC  EJECTOOUTPRS 


-R  SECONDARY  NOZZLE  EXIT*,//, 


OUTPRS 

-T32,*A4  »*,E13.6,«  S-M2/KM0LE*,T66.*G4  ■*1E13.6,/,  OUTPRS 

-T32.*MW*  ■*,E)3.6«*  KG/KMOLE*. T66,*M4  **.F)3.6./.  OUTPRS 

-T32,*P4  **,E13.6,*  PA*,T66,*P40  **,E13.6,*  PA*,/,  OUTPRS 

-T32,*R4  ««.El3,6.*  KG/M3*.T66.*R40  **.E13.6.*  K0/M3*,/,  OUTPRS 

-T32,*T*  **»E 1 3. 6 , *  K*,T66,*T40  **,F13.6»*  K*,/,  OUTPRS 

-T32,*N4H1  **.E13.6,T66,*X4X1  "‘.Els,*)  OUTPRS 

FORMAT (*0*,T23. -POINT  5  CONSTANT-AREA.  SUBSONIC-SUPERSONIC  EJECTOOUTPRS 
-R  PRIMARY  NOZZLE  EXIT*)  OUTPRS 

FORMA  f (*0*,T23.*NOTE  >  THE  UPPER  LIMIT  POINT  HAS  USED  AS  THE  LJMOUTPRS 
-ITING  CONDITION  F0R«,/,T32,«THE  CONSTANT-AREA,  SUPFPSONIC-SUPERSONOUTPRS 
-IC  EJECTOR*)  OUTPRS 

FORMAT (*n*,T23,*N0TE I  THE  Zl'KOSKl  SEPARATION  POINT  NAS  USED  AS  OUTPRS 
-THF  LIMITING  CONDITION  F0R*,/,T32.*THE  CONSTANT-AREA.  SUPERSONIC-SOUTPRS 
-UPFRSOUIC  EJECTOR*)  OUTPRS 

FORMAT (•()*, T23, -NOTE  I  THE  MATCHED  PRESSURE  POINT  HAS  USED  AS  THOUTPRS 
-E  LIMITING  CONDITION  F09*,/,T32,*THE  CONSTANT-AREA,  SUPERSONIC-SUPOUTPRS 
-ERSONIC  EJFCTOR*)  OUTPRS 

c0DMAT (*()*, T23.*P0INT  5  CONSTANT-AREA.  SUPFRSONIC-SUPERSONIC  EJECOUTPRS 


-TOO  PRIMARY  NOZZLE  EXIT*) 
FORMAT (*0*. 


OUTPRS 
OUTPRS 

-T32,*AS  ■*»E13,6  >•  S-M2/kMOLE*.TS6,*G5  •*1E13.6,/->  OUTPRS 

-T3?,*MN5  ■*,E13.6,*  KG/KMOLE*. T66.-M5  ■*,El3.6«/«  OUTPRS 

-T32.*PS  ■•.FIS,*,*  PA*.T66»*P50  ■••E13.6,*  PA*,/,  OUTPRS 

-T32.*RS  **.£13.6,*  KG/M3*.T6fc.*R50  **.E13,6.*  KG/M3*./*  OUTPRS 

-T32,*T5  «*.E13,6.*  K«,T60,*T5O  **,E13.6»*  K*» /,  OUTPRS 

-T3?,*M5wi  ■*.E13.6.T66,*X5X1  »*.E13.6>  OUTPRS 

FORMAT (*1*,T23,*P0INT  6  CONSTANT-AREA.  SUBSONIC-SUPERSONIC  EJECTOOUTPRS 
-R  FXIT  AND  SUBSONIC*, /,T?2,*0IFFUSER  ENTRANCE*)  OUTPRS 
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subroutine  outprs 

OVERLAY  PRS 

PAOE 

D-33 

220 

FORMAT (•0*. 

T23. 

•POINT  6 

CONST ANT-ARi'A.  SUPFRSONIC. SUPERSONIC 

EJECOUTPRS 

1TS0 

-TOR  EXIT  ANO  SUBSONIC* . 

',T32.*DIFFUSEA  ENTRANCE*  t 

OUTPRS 

lTfrO 

221 

FORMAT (*0*. 

OUTPRS 

ITTR 

■ 

.M3.fr.* 

S-M?/KM0LE*.T66.*S6  **jE13,fr./. 

OUTPRS 

1780 

-T32,*Mt(6 

■ 

.E13.fr. • 

XP/KMOLF*.Tfrfr.*Mfr  ■*.F 1 3.6. /. 

OUTPRS 

1T90 

-T32.*Pfr 

• 

.E13.fr.* 

RA*.Tfrfr.*P6fr  ■*.E13.b«*  PA*,/. 

OUTPRS 

1800 

-T32.»R* 

■ 

.E13.fr.* 

KG/M3*.Tfrfr.*R«0  •••E13.fr.*  KO/M3* 

,/•  OUTPRS 

1B10 

-T32.*Tfr 

■ 

.E13.fr.* 

K«,T66,*Tfrg  ■*,F13,6»*  *••/.. 

OUTPRS 

1820 

-T32,*Vfrt»l 

■ 

•E13.4.Tfrfr»*XfrXl  **.E1 3,fr v 

OUTPRS 

1830 

?» 

FORMAT  »*0*. 

T?3 

•POINT  7 

SUBSONIC  OlFFUSCR  EXIT*.//, 

OUTPRS 

1840 

«T32.*A7 

a 

•E13.fr.* 

S-H2/KMOLE*.T46.*FTAfrT  ■*,E13.6./, 

OUTPRS 

1850 

-T32.«87 

a 

•  El 3.  fr.Tfrfr.*MH7  ■•.El3.fr.*  KS/KMOLE*./. 

OUTPRS 

I860 

-T3F.*M7 

a 

.E13 ,6.Tfrfr,*P7  -*. El3.fr.*  PA*./, 

OUTPRS 

1870 

-T3F.PR70 

a 

•E13.fr.* 

PA*.Tfrfr.*RT  •••E13.fr.*  KS/M3*./. 

OUTPRS 

I860 

-T32.*RT0 

a 

•E13.fr.* 

KO/M3*.T66.*TT  ■••E13.fr.*  **•/• 

OUTPRS 

1890 

-T32,*TT0 

a 

•E13.6.* 

K*.T6fr.**m  ■••E13.fr. /, 

OUTPRS 

1900 

-T3?#*X7x1 

a 

•E13.6) 

OUTPRS 

1910 

END 

OUTPRS 

1920 
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subroutine  sos  overlay  phs 

PAGE 

0-34 

SUBROUTINE  SOS (0, MI ,A?A1 ,M?,P?PJ .PJftPjO.TFTl ,T EOT  1ft, BO, 

SOS 

ft  1  DO 

-PAIL) 

SOS 

QUO 

c 

SOS 

0120 

c 

SOS 

0130 

c«< 

••SOS 

01  40 

c« 

•  SOS 

ftiso 

c* 

SUBiiOMi.  DIFFUSER  SUBROUTINE  (SOS) 

•  SOS 

0100 

c« 

•SOS 

01  TO 

c*< 

•  •SOS 

0 1  Rft 

c 

SOS 

0100 

c*< 

••SOS 

o?no 

c« 

•SOS 

0210 

c* 

SUBROUTINE  SOS  CALCULATES  THE  PRESSURE  RATIO  ACROS«  A 

CONICAL. 

•SOS 

0220 

c* 

SUBSONIC  oiefuser  PITH  «n  included  ANGLF  OF  IS  degrees.  The  static 

•  SOS 

0230 

c« 

PRESSURE  RATIO  IS  COMPUTFO  USING  AN  EMPERlCAL  DIFFUSER  EFFICIENCY. 

•SOS 

0240 

c« 

ALL  OTHER  PROPERTIES  ARE  CALCULATED  FROM  THE  ISENTROP 

:c  flop 

•  SOS 

OHO 

c« 

RELATIONS  TO  BE  CONSISTENT  KITH  THE  ENTRANCE  AND  EXIT  MACH 

NUMBERS. 

•SOS 

0260 

c* 

•  SOS 

02T0 

c« 

THE  SUBSONIC  OIEFUSER  EFFICIENCY  GIVEN  BY) 

•SOS 

D2B0 

c« 

•  SOS 

0200 

c* 

EEE»(P?«-P1)/(P?-PI) 

•  SOS 

0300 

c» 

•SOS 

0310 

c* 

IS  LIMITEO  TO  THE  RANGE)  ft.?<Ml<0.5.  2 . 34< *?/ A 1 <5 . ?  AND  IS 

DERIVED 

•SOS 

0320 

c* 

FROM  DATA  IN  THE  FOLLOWING  PEFFRENCES) 

•SOS 

0330 

c* 

•SOS 

0340 

c* 

HENRY. J.R..  POOO.C.C.*  ANO  M ILSUR .  S  •  M  ,  <  "SUMMARY  OF 

•SOS 

03S0 

c* 

SUBSONIC-DIFFUSE R  DATA,"  NACA  RM  L56F OS  (1056). 

•SOS 

0360 

c* 

•SDS 

03T0 

c* 

PATTERSON, G.N.,  "MODERN  OIFFUSER  DESIGN,"  AIRCRAFT 

•SOS 

03R0 

c* 

FNGINEFRING,  <»<<))  >?6T-?73  (1<»3G). 

•SOS 

0300 

c« 

•SOS 

0400 

c* 

THE  SUBSONIC  OIFFUSFR  COEFFICIENT  IS  OEFINEO  AS) 

•  SOS 

0410 

c* 

•  SDS 

0420 

c» 

RD«(P?»/Pl)/(P?/PU 

•  SDS 

0430 

c* 

•  SOS 

0440 

c* 

INPUT  VARIABLES) 

•  SOS 

0440 

c» 

•SOS 

0460 

c* 

A?A 1  ■  FXIT-TO-ENTRANCF  ARF A  RATIO 

•  SGi 

0470 

c« 

G  ■  GAMMA 

•SDS 

04B0 

c* 

Ml  m  ENTRANCE  MACH  NUMBER 

•sts 

0400 

c* 

•SOS 

OSOO 

c« 

OUTPUT  VAPIABI.ES ) 

•SOS 

0S10 

c« 

•SOS 

0S20 

c* 

Fail  ■  ERROR  FLAG 

•  SOS 

0S30 

c* 

M?  ■  EXIT  MACH  NUMBFR 

•SOS 

0540 

c* 

P2P1  •  EXIT -TO-ENTRANCE  STATIC  PRESSURE  RATIO 

•  SOS 

0550 

c» 

PE0P10  •  FXIT-TO-ENTRANCF  STAGNATION  PRESSURF  RATIO 

•SOS 

0560 

c» 

RD  »  SUBSONIC  OIFFUSFR  COEFFICIENT 

•SOS 

D570 

c* 

T2T1  ■  FXIT-TO-ENTRANCF  STATIC  TEMPERATURE  RATIO 

•  SDS 

0580 

c* 

TEOTlfi  ■  EXIT -TO-ENTR ANCE  STAGNATION  TEMPERATURE  RATIO 

•SOS 

0500 

c* 

•SDS 

0600 

c*< 

••IDS 

0610 

c 

SOS 

0620 

c 

SDS 

0636 

IMPLICIT  REALIM) 

SOS 

0640 
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APPENOIX  0 
SUBROUTINE  SOS 


CHEMICAL  LASER  ANALYSIS  PPOftBAM  (CLAP* 
OVERLAY  PRS 


PAOE  0-35 


OATA  Yf S/3HYES/ • SU6/3HSUR/ 

SOS 

0650 

c 

SOS 

0660 

c 

SOS 

06T0 

c^** 

0600 

c» 

•SOS 

0600 

c* 

OAS  DYNAMIC  FUNCTIONS 

•  SOS 

0700 

€• 

•SOS 

0710 

c #*• 

07*0 

c 

SOS 

0730 

c 

SOS 

0740 

TRIM (OX (MX 1*1»0*0.5#(8X— 1,0) *NX»MX 

SOS 

0750 

P0PMie*,N*J»I1.0«0.S«(8X-l .0)«HX*NX>«* <0X/ ( 8X- 1 . 0 >  5 

SOS 

0760 

c 

SDS 

0770 

c 

SOS 

0700 

€••• 

0700 

c» 

•SDS 

OBOO 

c» 

CALCULATIONS  FOP  CONSTANT-AREA  DIFFUSER 

•SDS 

0010 

c* 

•SDS 

0020 

c*** 

0030 

c 

SOS 

0040 

c 

SOS 

oaso 

If  (AIM. W. 1*0)  60  TO  1 

SDS 

0060 

M?«NI 

SDS 

0870 

P?t»l«l  .p 

SOS 

0000 

P?0P10«I.0 

SDS 

oooo 

TET1-I.5 

SDS 

0900 

T?OT10«I .0 

SOS 

0910 

PD«1 .0 

SDS 

0920 

RETURN 

SOS 

0930 

c 

SOS 

0940 

c 

SOS 

0950 

c*»* 

0960 

c« 

•SOS 

09TO 

c* 

CALCULATE  CONSTANTS 

•SOS 

0900 

c* 

•SDS 

9  990 

JOOC 

c 

SOS 

1010 

c 

SDS 

1020 

1 

6?«?.0/(0«1.0> 

SDS 

1030 

64* (6* 1.0 >/ (2.0* (6-1.0) ) 

SOS 

1040 

c 

SOS 

1050 

c 

SDS 

1060 

C««t 

1 0T0 

c* 

•SDS 

1000 

c« 

SOLVE  A2A2S  FOR  M2 

•SDS 

1090 

c* 

•  SDS 

1100 

c«*** 

1110 

c 

SDS 

1120 

r 

SOS 

1130 

*UlS'»(1.0/Mn*(0?*TOTM(6.Ml)  )»*64 

SDS 

1140 

A?A?S»A?A1»A1A15 

SOS 

1150 

CALL  HA  IS  1 8*M1 • A?A?S  «SUS  tS'OE-06  »M?*FAIL) 

SOS 

1160 

IF(FAIL.FO.YES)  RETURN 

SOS 

1170 

c 

SDS 

1180 

c 

SDS 

119C 
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APPEND l*  0 
SUBROUTINE  SOS 


ChFNICAL  LASER  ANALYSIS  PR06RA*  <CtAP> 
OVFRLAV  PRS 


PA  OF  0-34 


€••« 

•••SOS 

1200 

C* 

•  SOS 

mo 

C» 

CALCULATF  YMF  DIFFUSER  EFFICIENCY 

•  SOS 

mo 

C« 

•  SOS 

1230 

C»«« 

•••SOS 

mo 

C 

SOS 

mo 

C 

SOS 

mo 

EEE«0,00?4B5mAl«A?Al«A?Al-0.0fc4441AA2Al*A?Al-0.0?mO» 

SOS 

im 

-A?AI«l. 04*002 

SOS 

1*00 

c 

SOS 

mo 

c 

SOS 

13?0 

c*»« 

•••SOS 

]3)0 

c« 

•SOS 

mo 

c* 

CALCULATF  THE  IDEAL  STATIC  PRESSURE  PATIO 

•SOS 

1330 

c* 

•SOS 

)3A0 

••nos 

1330 

c 

SOS 

1340 

c 

SOS 

13T0 

Pl#PI»POPH«e,Ml) 

SOS 

13R0 

P?0PI«P0PH<8.H2J 

SOS 

1300 

P?P  J«PJ((PI/P?0P2 

SOS 

1400 

RO»EEF* u .0-EFF) /P?P1 

SOS 

1410 

c 

SOS 

1420 

c 

SOS 

1430 

c**« 

•••SOS 

1440 

c« 

•SOS 

1450 

c« 

CALCULATE  THE  ACTUAL  STATIC  PRESSURE  RATIO 

•  SOS 

1440 

€• 

* 

•SOS 

14T0 

c*«< 

•••SOS 

1440 

c 

SOS 

1400 

c 

SOS 

ISOO 

P*P1«RD*P?PI 

SOS 

1310 

P?OP10«P?OP?«P2PI/P10PI 

SOS 

1520 

TiOTlO«j ,0 

SOS 

1530 

Tlon»TflTM(8»Hl) 

SOS 

1540 

T?#T?«J0TH (6»N2l 

SOS 

1550 

T?Tl*TjoTl»TJOTlO/T?OT? 

SOS 

1540 

END 

SOS 

1ST0 

X55 
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APPENDIX  0 
SUBPOUT  INF  SSFOS 


chemical  lasfr  analysis  program  cclapi 
overlay  prs 


PAOE  0-3T 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

C' 

c 

c< 

c 

c- 

c 

C' 

C' 

c< 


SUPPOUTINE  SSEOS (ATA6.OS.GP, LIMIT, MWPNWS, Ml, P60P1«PTP1*T50T10*  SSEOS 

-A6AS,FTA67,FAIL«GM,mwMMWP'MS,M6,M7,PBP1,P56P10,P6PK.P60PS0,P7P6«  SSEOS 
-P7flP60,TKTl.T6TS,T60TS0,T7T6,TTflT60»WPWS>  SSEOS 

sseos 

SSEOS 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••SSEOS 

•SSEOS 

SUPERSONIC-SUPERSONIC  EJECTOR  OPTIMIZATION  SUBROUTINE  tSSEOSI  *SStOS 


•SSEOS 

'•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••SSEOS 

SSEOS 

••••••••••••* . . . ••••••••••••••••••••••••••••••••••••••••SSEOS 

•SSEOS 

SSEOS  IS  A  SUBROUTINE  FOP  OPTIMIZING  A  CONSTANT-AREA,  SUPERSONIC-  •SSEOS 
SUPERSONIC  EJFCTOR-SUBSONIC  DIFFUSER  SUBSYSTEM  BY  OnF-OIMEnSIONAL  ‘SSEOS 
ANALYSIS.  THE  OPTIMUM  IS  TAKEN  TO  BE  THAT  CONFIOUBATION  WHICH  *SSEOS 
REOUIRFS  THE  MINIMUM  DRIVER  MASS  FLOW  FOR  A  8IVEN  DRIVER  STABNATION  *SSEOS 


PRESSURE  AND  OIVEN  COMPRESSION  RATIO.  *SSEOS 

•SSEOS 

INPUT  VARIABLES!  *SSEOS 

•SSEOS 

ATA6  ■  SUBSONIC  DIFFUSER  E X I T-TO-ENTRANCE  AREA  RATIO  *$$EOS 

G$  «  SECONDARY  GAMMA  ‘SSEOS 

OP  •  PRIMARY  GAMMA  »SSEOS 

LIMIT  ■  CONTROL  VARIABLE  TO  SET  THE  LIMITING  CONDITION  ON  THE  «SSEOS 

CONSTANT-AREA,  SUPERSONIC-SUPERSONIC  EJECTOR  OPERATION  *SSEOS 

MWPMWS  •  PR  I MARY -TO -SECOND ARY  MOLECULAR  WEIOHT  RATIO  *SSEOS 

Ml  ■  SECONDARY  MACH  NO.  AT  THE  MIXING  TUBE  ENTRANCF  *SSEOS 

PS0P1  ■  PRIMARY  STAONATION-TO-SECONOARY  STATIC  PRESSURE  RATIO  4SSEOS 

PTP1  *  SUBSONIC  OIFEUSER  EX  I T-TO-SECONOAR V  STATIC  PRESSURE  RATIO  »SSEOS 

TSOTin  -  RRIMARY-TO-SECONO.ARY  STAGNATION  TEMPERATURE  RATIO  «SSEOS 

•SSEOS 

OUTPUT  VARIABLES!  »SSEOS 

•SSEOS 

A6A5  ■  MIXING  TUBE-TO-PRIMARY  NOZZLE  EXIT  «RE A  RATIO  *$SEOS 

ETA67  «  SUBSONIC  OIFEUSER  COEFFICIENT  »SSEOS 

FAIL  •  ERROR  TLAG  «SSEOS 

ON  •  MIXED  STREAM  GAMMA  *SSEOS 

MWMMWP  ■  MIXED  STRCAM-TO-PRIMARY  MOLECULAR  We'IGMT  RATIO  *SSCOS 

MS  ■  PRIMARY  MACH  NO.  AT  THF  NIXING  TUBE  ENTRANCE  *SSCOS 

N6  ■  MIXED  STREAM  MACH  NO.  AT  THE  MIXING  TORE  EXIT  *SSEOS 

NT  ■  MACH  NO.  AT  THE  SUBSONIC  OIFEUSER  EXIT  *SSEOS 

P5P1  «  PRIMARY-TO-SECONOARY  STATIC  PRESSURE  RATIO  *SSEOS 

P50P10  •  PRIMARY-TO-SECONOARY  STAGNATION  PRESSURE  RATIO  *SSEOS 

P6P5  ■  MIXED  STREAM-TO-PRIMARY  STATIC  PRESSURE  RATIO  «SSCOS 

P60P50  ■  NIXED  STREAM-TO-PRIMARY  STAGNATION  PRESSURE  RATIO  <-SSEOS 

P7P6  a  SUBSONIC  DIFFUSER  EXIT -TO-CNTR ANCE  STATIC  PRESSURE  RATIO  *SSEOS 

PT0P60  •  SUBSONIC  DIFFUSER  EX IT-TO-ENTRANCE  STAGNATION  PRESSURE  *SSEOS 

RATIO  *SSEOS 

T5T1  ■  PRIMAPY-TO-SECONOARY  STATIC  TEMPERATURE  RATIO  *SSEOS 

T6T5  «  MIXED  STREAM-TO-PRIMARY  STATIC  TEMPERATURE  RATIO  *SSEOS 

T60T50  ■  MIXED  STREAM-TO-PRIMARY  STAGNATION  TEMPERATURE  RATIO  «SSEOS 

T7T*  •  SUBSONIC  DIFFUSER  FX IT-TO-ENTRANCE  STATIC  TEMPERATURE  *SSCOS 

•  RATIO  *SSEOS 

T70T60  ■  SUBSONIC  OIFEUSER  EX IT-TO-ENTRANCE  STAGNATION  TEMPERATURE  «SSEOS 


1*100 
0110 
0170 
0130 
01  AO 
0150 
0160 
0 1  TO 
01BO 
0190 
ozoo 
0ZI0 
oz?o 

0730 

0740 

0750 

0760 

07T0 

0200 

0790 

0300 

0310 

0370 

0330 

0340 

0350 

0360 

0370 

0309 

0390 

0400 

0410 

0470 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0570 

0530 

0540 

0550 

0560 

65T0 

0580 

0590 

0600 

0610 

0670 

0630 

0640 
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SUBROUTINE  SSfOS  OVERLAY  BRS 

RAOE 

D-3B 

C« 

RATIO 

•sseos 

0*50 

c» 

URNS  ■  RR I NARY -TO- SECOND ARY  MASS  FLOP  RATIO 

•SSEOS 

0080 

c« 

•SSEOS 

«*T0 

c»« 

0*00 

c 

SSEOS 

0*90 

c 

SSEOS 

0T00 

INRUCIT  #EAL(L#N) 

SSEOS 

OT 1  0 

OATA  YFS/3NYES/ 

SSEOS 

0T*O 

c 

SSEOS 

0T30 

c 

SSEOS 

0T*0 

c»« 

0T50 

c« 

•SSEOS 

07*0 

c« 

OAS  DYNAMIC  FUNCTIONS 

•SSEOS 

OTTO 

c« 

•SSEOS 

OTBO 

C»I 

0T90 

c 

SSEOS 

0000 

c 

SSEOS 

0*10 

T0TM(O,M)«1.0*0.5« (0-1.0 )*M»M 

SSEOS 

0070 

POPM(A,M»«TOTM<6,M)**|A/<0-1.0> > 

SSEOS 

0*30 

c 

SSEOS 

00*0 

c 

SSEOS 

0B50 

c*« 

00*0 

c« 

•SSEOS 

OOTO 

c» 

CHECK  INITIAL  OATA 

•SSEOS 

0000 

c» 

•SSEOS 

0090 

C«« 

0900 

c 

SSEOS 

0910 

c 

SSEOS 

09?0 

PDPU«C?.0*0S*Ml*Ml«l ,0-OS) /(OS-l .0) 

SSEOS 

0930 

IF <PDPU,6T.P7PII  80  TO  105 

SSEOS 

0940 

MNSMNP.l.O/MNPMMS 

SSEOS 

0930 

T10T50-1.0/T50TI0 

SSEOS 

09*0 

c 

SSEOS 

09T0 

c 

SSEOS 

0900 

c*< 

0990 

c» 

•SSEOS 

1000 

c* 

ITERATE  A6A5  TO  FINO  XP30R1»PSOP1 

•sseos 

1010 

c* 

•sseos 

10*0 

c»< 

1030 

c 

SSEOS 

1040 

c 

SSEOS 

1030 

NTVPE*» 1 

sseos 

10*0 

NIT?»l 

SSEOS 

1070 

*OA5»?0. 0 

SSEOS 

1000 

DO  103  ITER?»I . 1000 

SSEOS 

1090 

c 

SSEOS 

)  1 00 

c 

SSEOS 

1110 

11*0 

c» 

•SSEOS 

1130 

c* 

ITERATF  M5  TO  FINO  XPTPl-PTP) 

•SSEOS 

1140 

c» 

•SSEOS 

1130 

c*< 

11*0 

c 

SSEOS 

11  TO 

c 

SSEOS 

1100 

NTYPE3-1 

SSEOS 

1190 
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arbfnoix  o 
SUBBOOT  INC  SSCOS 


CHCMICAL  LASFP  ANALYSIS  PROBRA*  (CL  aP ) 
OVERLAY  BBS 


BASE  D->9 


1 


N I T3« 1 

SSEOS 

!?00 

N5«l,01 

SSEOS 

1?10 

00  101  ITCB3M.1000 

SSCOS 

1  ??0 

c 

SSCOS 

1  ?30 

c 

SSEOS 

1?*0 

c«*« 

••SSCOS 

1  ?50 

c» 

•  SSEOS 

l?60 

c* 

CALCULATIONS  FOR  SUBCRSONIC-SUBCHSONJC  EJECTOR 

•SSEOS 

1  ?T0 

c* 

•SSCOS 

t?80 

c*»* 

••SSEOS 

1  ?90 

c 

SSEOS 

1300 

c 

SSEOS 

1310 

A 1 ASM6A5-1 . 0 

SSEOS 

1 3?0 

CALL  SSrSlSS.»B.N*SN*P.T!0T50.Nl.N5.Al*S,LlN!T,*S«B,ON, 

SSEOS 

1330 

.MWNNWP,TS0T50tN6<XBS0Bl,PARI,FAtLI 

SSEOS 

13A0 

IF(FAIL.CO.TES)  SO  TO  1 06 

SSCOS 

1 3S0 

c 

SSEOS 

1360 

c 

SSEOS 

1370 

c*** 

••SSEOS 

1380 

c» 

•SSEOS 

1390 

e* 

CALCULATIONS  FOB  SUBSONIC  DIFFUSER 

•SSEOS 

1*00 

c» 

•SSCOS 

1*10 

••SSEOS 

1*?0 

c 

SSFOS 

1*30 

c 

SSCOS 

1**0 

CALL  SnS(BN,N6.A7A6,N7,P7P6.P70P60.T7T6.T70T60.ETAA7,FAIL> 

SSEOS 

1*50 

IF(FAIL.F0.TES1  00  TO  1(17 

SSEOS 

1*60 

XP7P1 ■P7P6*P6P1 

SSFOS 

1*70 

c 

SSEOS 

1*00 

c 

SSEOS 

1*90 

C**» 

••SSCOS 

1500 

c* 

•SSCOS 

1510 

c« 

TEST  FOR  XP7Rl»P7Pl  ANO  INCRCnFnT  M? 

•SSCOS 

15?0 

c« 

•SSCOS 

1530 

<:••• 

••SSEOS 

15*C 

c 

SSCOS 

1550 

c 

SSEOS 

1560 

CALL  ITCR(N5t0.5.5.0F-06,*1.0.XP7Pl,R?Pl,1.0C-01*NTT3.NTYPE3t 

SSCOS 

1570 

-XNCB3.VNE63tXP0S3tYP0S3,NSl0N3,NSI5N*> 

SSEOS 

1580 

IFCNTVPE3.E0.3)  BO  TO  10? 

SSEOS 

1590 

101 

CONTINUE 

SSCOS 

1600 

SO  TO  ios 

SSCOS 

1610 

c 

SSEOS 

16?0 

c 

SSCOS 

1630 

<:••• 

••SSEOS 

16*0 

c* 

•SSCOS 

1650 

c« 

TEST  FOR  XP50Pi«P50Pl  ANO  INCRENCNT  A6A5 

•SSCOS 

1660 

c* 

•SSCOS 

1670 

c«** 

••SSCOS 

1680 

SSCOS 

1690 

c 

SSEOS 

1700 

10? 

CALL  ITER(A6A3.0.5,5.0E-06.-1.0.XR50Pl.P50Pl.l.OC-oi.NIT?,NTYPE2 

.  SSCOS 

1715 

-XNFS?.YNEO?,XPOS?,YPOS?,NSIGNl,NSI8N?i 

SSCOS 

1  T?0 

IF(NTYPE?.E0.3)  80  TO  10* 

SSCOS 

1730 

103 

CONTINUE 

SSCOS 

17*0 

I 


APPENDIX  D  CMFMICAL  LASFR  ANALYSIS  PROSPAM  IClAP) 


SUBROUT  INF  SSFOS  OVERLAY  PRS 

PABE 

0-«0 

00  TO  100 

3SE0S 

ITSO 

10* 

WPWS"1 ,0/WSWP 

SSE03 

1760 

P5Pl«KP50Rl-'R0PM(PP,M6) 

SSEOS 

1TT0 

P50P1 0«XP50P1 *POPN (AS tMl ) 

SSEOS 

1TB# 

T5Tl«T5dT10»T0TM(SS.Mi ) /T0TM(6P,MS) 

SSEOS 

JT90 

P6P5-P6P1/P5P1 

SSEOS 

ISO# 

P60R50«P6P5»R0PM(flM,M6|/P0PM(OP,M5) 

SSEOS 

1610 

T6T5»T60T30*T0TM(SP.M5) /TOTM(OM,M6» 

SSEOS 

1620 

RETURN 

SSEOS 

1630 

C 

SSEOS 

16*0 

C 

SSEOS 

1650 

C*** 

►••••SSEOS 

1660 

c» 

•SSEOS 

16T0 

c* 

FAILURF  INDICATORS 

■SSEOS 

I860 

c« 

•SSEOS 

1670 

►••••SSEOS 

1*00 

c 

SSEOS 

1*10 

c 

SSEOb 

1*20 

105 

WRITE ( A , ?0  1 ) 

SSEOS 

1930 

SO  TO  110 

SSEOS 

1**0 

106 

WRITE16.20?) 

SSEOS 

1*50 

RETURN 

SSEOS 

1960 

1  OT 

WRITE  C6»?03) 

SSEOS 

1*70 

RETURN 

SSEOS 

1*60 

106 

WRITE (6|204)A6A5«MA»XP7Pl«PTPl 

SSEOS 

19*0 

60  TO  110 

SSEOS 

2000 

100 

WRITE (6,205) M5 *  Aft A5 » XP50P 1 «P50P1 

SSEOS 

20'j.O 

110 

EAIL«VES 

SSEOS 

2020 

C 

SSEOS 

2030 

c 

SSEOS 

2040 

•••••SSEOS 

2050 

c* 

•SSEOS 

20*0 

c* 

FORMAT  STATEMENTS 

•SSEOS 

20T0 

c* 

•SSEOS 

2060 

2090 

c 

SSEOS 

2100 

c 

SSEOS 

2110 

201 

FORMAT (*0*<T2, •WARNING  IN  SUBROUTINE  SSEOS*, /,T2.*TUE  *» 

SSEOS 

2120 

-•NORMAL  SHOCK  STATIC  PRESSURE  RATIO  FOR  THE  SECONDARY*,/. 

SSEOS 

2130 

-T2,*STREAM  IS  6REATER  THAN  THE  REQUESTED  COMPRESSION  •, 

SSEOS 

21*0 

-•RATIO*, /,T2.*M1  -•,E13.6.T26,*6S  ••.E13.6,/, 

SSEOS 

2150 

-T2,*PDPU  ■•.E13,6.T?6.»PTPI  ■*,E13.6> 

SSEOS 

2160 

202 

FORMAT (•0*,T2»*PRO6RAM  TERMINATED  IN  SUBROUTINE  SSES*,/. 

SSEOS 

2170 

— T2»*A5  CALLED  FROM  SUBROUTINE  SSEOS*) 

SSEOS 

2160 

203 

FORMAT (»0».T2, •PROGRAM  TERMINATED  IN  SUBROUTINE  SD**,/, 

SSEOS 

21*0 

-T2,*AS  CALLEO  FROM  SUBROUTINE  SSEOS*> 

SSEOS 

2200 

?0* 

FORMAT  C«0*,T2. •CONVERGENCE  FAILURE  IN  SUBROUTINE  SSEOS*,/, 

SSEOS 

2210 

-T?,*FOR  M5  SUCH  THAT  XP7Pl«P7Pl*.//» 

SSEOS 

2220 

-T2,*AAA5  ■••E13.6r T?6,*MS  ■••F13.6,/, 

eseos 

2230 

-T2,»XPTP1  •••cl3.6.T26,«PTPl  •*,E13.6) 

SSEOS 

22*0 

205 

FORMAT (*0*,T2,*CONVEROENCE  FAILURE  IN  SUBROUTINE  SsFOS*,/. 

SSEOS 

2250 

-T2,*F0R  A6A5  SUCH  THAT  XPS0PI-P50R1*,//* 

SSEOS 

2260 

— T2**M5  ■•<F13.6,T26,*A6A5  ■•.E13.6,/, 

SSEOS 

2270 

-T*,*XP50P1  ■•»E13.6,T26,«P50P1  ■•*E13.6) 

SSEOS 

2260 

END 

SSEOS 

22*0 
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APPFNOI*  0  CMfM!C*L  LASER  ANALYSIS  RRORRAM  <C!AP> 

SUBBOUT  IMF  SSrS  OVERLAY  BBS  BA6t  0-*l 


sufsrout  inf  ssrs(«s,(»M,M«sm*p,TSATPo.**si,MPj.*S5A«»i,il**tT,  ssrs  oino 

-mSMP.UN.mrmhrP , TmnTPp ,MM3,Pf>nPSl  ,PR3PS1  iE A 1L  I  SSES  <*110 

C  sscs  oipo 

r  sses  01  so 

. . . . . . . . .  •••••••••••••••••••••ssrs  01  so 

c»  »ssrs  oiso 

f»  SUPFRSON1C-SUPFBSONIC  FJFCTOR  SUBROUt 1 NF  (SSF«t  »SStS  0100 

c.  «ssrs  oi to 

. . . . . . . . it . ••••••••••SSES  01  BO 

c  SS(S  01*0 

. . . . . . . . .  0?00 

Co  pssrs  obi o 

Cr  SURROUTiNr  SSTS  CAlCULATrs  THE  MAXIMUM  CURPRFSStON  RAMO  TOR  A  PSSES  OPPO 

C»  CONST  AN T-AHf A  ,  SUPF RSON 1 C-SUPt RSON IC  ELECTOR.  BY  ONE -0 1 MFNS I ONAL  PSSES  OPSO 

C»  ANSI YSIS.  «SSFS  0?AO 

f,  «sscs  OpSO 

C»  INPUT  VARtARirSl  ‘SSPS  OPoO 

c.  »5SFS  OPTO 

c*  OS  ■  SrOOMOARY  (1AMMA  «BStS  0P«0 

C«  OP  •  PRIMARY  CAMMA  *SSES  OPSO 

C«  MMSMMP  ■  SFCONDAR Y-TO-PR I  MARY  MOLFCULAR  MflOMT  RATIO  PSSBS  OSOO 

C*  TSOVPo  >  SFCONPARY-TO-PR1MARY  STAONATJON  TCMPFRATURf  RATIO  »tSFS  0 J 1 9 

f»  MSI  •  SECONDARY  MACH  NO,  AT  TMF  MIXING  TURF  FNTOANf F  »SSCS  OSPO 

CP  MPl  ■  PRIMARY  MACH  NO,  AT  THF  NIXING  TUttF  FNTRANCF  ’SSCS  OSSO 

CP  AS  1 AP 1  ■  SFCONOARY-10-PRIMARV  ARFA  RATIO  PSSCS  OSAO 

C»  UNIT  ■  CONTROL  WAR  1 AHLF  SUCH  THATt  «SSES  OSSO 

C«  ■  miLMH  FOR  TMF  UPPER  LIMIT  POINT  »SStS  OSSO 

c *  «  MysP"  FOR  THF  7UMOSM  SFPARATION  POINT  PISES  OSTO 

c»  ».  hmP!»m  POR  THF  MATCHFO  PRESSURE  POINT  "SSES  03B0 

c.  p*SES  0390 

Cp  OUTPUT  VAR1 ARLFS I  *****  0*00 

c,  PSSES  0*10 

CC  WSWP  «  ! 'CONOARY-TO-PHIMFRY  MASS  FLO*  RATIO  »S5ES  OC.PO 

cp  om  ■  mxr-i  stream  gamma  pssrs  o*so 

CO  MMMMWP  a  Mixro  STRLAM-TO-PR|MARY  MOLECULAR  Mf JOIST  RATIO  PSSES  0**0 

C«  T HO TP K  «  Mixro  ST RE  AM- TO -PR iMARY  STAGNATION  TrHPERATURr  RATIO  ‘SSCS  0*S0 

r»  MM3  •  M|  XFO  STREAM  MACH  NO,  AT  THF  MIXING  YuRC  FAIT  «SSES  0*00 

Co  PPOPSl  p  PRIMARY  STAONATION-TO-SECONOARY  STATU  PRESSURE  RATIO  *SSES  0*T0 

cp  PMJPS\  p  STATIC  PRESSURE  COMPRESSION  RATIO  PSSES  OARO 

CP  FAIL  p  ERROR  FLAG  PSSES  0*90 

r«  psscs  osoo 

. . . . .  0*10 

C  ssts  ospo 

(•  sscs  OSSO 

I  MPL  ICTY  REAL  <M)  **C*  <**'*0 

REAt.  UNIT  SSES  OSSO 

DATA  YFS/3HYFS/.SUP/3MSUR/*ULP/THULP/.MPP/SHHPP/  SSES  0*00 

c  SSCS  OSTO 

C  SSCS  OSRO 

C*pp/p*p*p*pppp«pppppp>ppppppppppppp»e*p*ppppppppppp*ppp*p*»pppppppp»*ppssis  OSRO 
C«  *SSE$  0000 

C«  SPFCIAL  FUNCTIONS  «SSES  0010 

C.  PSSES  OOPO 

. . . . . . .  OA30 

f  SSES  0B*0 


appfnoix  o  r.HfMic*!  laser  analysis  pposran  iclapi 


SU8R0UTINF  SSFS 

overlay  prs 

PAOE 

.)-4E 

c 

SSES 

06S0 

F  (9X'MXX)al.0*OX*MXX«MXX 

SSES 

0600 

0<6X.MXX)»MXX*SQRT 1 1 . 0  *  0 ,M ( OX- 1 . 0 ) »MX X*MX X ) 

SSES 

0670 

H  (MM.TT  »8fl)  ■SORT  (HH»G«/TT> 

SSES 

0660 

ppoc«w*hxxi«(i  ,o*o.s»<ox-i 

,0)*NXX«P»X)»»(GX/ (1.0-OX) ) 

SSES 

0600 

AAS(6X,MXX)«(  <?.0»< 1. 0*0. *•< ax- 1,01 «NXX*MXX) / (OX* 1,  (!>»•• (C, 

S*((»X*lSStS 

OTOO 

-.oi/<6x*>i.o; » )/xxx 

SSES 

0710 

c 

SSES 

0T?0 

c 

SSES 

0730 

C*»« 

0  TAO 

c* 

•SSES 

OTSO 

c» 

CALCULATE  CONSTANTS 

•SSES 

OTOO 

c« 

•SSES 

OTTO 

€••« 

OTOO 

c 

SSES 

OTSO 

c 

SSES 

0600 

GS^aSS/ (OS-1 .0) 

SSES 

0610 

OPj»#P/ (OP-1.0) 

SSES 

06?0 

osop««s/op 

SSES 

0630 

MMPMNSsl .0/MWSMWP 

SSES 

06*0 

PSlPS0«PP0(OS,NSl ) 

SSES 

06S0 

PP1PPO«PPO(OP.NP1) 

SSES 

0660 

ASlASSaAAS(OS.PSl) 

SSES 

06T  0 

AP1APS«AAS(0P.HP1 ) 

SSES 

0660 

ASSASla) , 0/AS1ASS 

SSES 

08S0 

F  6SNS1 aE (8 J .NS l ) 

SSES 

OSOO 

FGPMPlaF (OP.MP1) 

SSES 

0310 

OOSMSlaO (OS.MSl) 

SSES 

0060 

00PNP1«0(SP,MP1) 

SSES 

0330 

c 

SSES 

03*0 

c 

SSES 

03S0 

C*«« 

0360 

c« 

•  SSES 

0370 

c« 

check 

INITIAL  DATA 

•ssrs 

0360 

c« 

•  SSES 

0330 

c*t« 

1000 

c 

SSES 

1010 

c 

SSES 

1 OEO 

IF(ASIAP).OT.O.O)  00  TO  1 

SSES 

1030 

PRITE (6*6) AS1 API 

SSES 

10*0 

FAILaYES 

SSES 

10S0 

RETURN 

SSES 

1060 

1 

KF(LINIT.FO.ULP)  00  TO  ? 

SSES 

l  OTO 

IF(tlHlY.EQ.NPP)  00  TO  4 

SSES 

1060 

00  TO  3 

SSES 

1030 

c 

SSES 

1100 

c 

SSES 

mo 

fttl 

nro 

c» 

•SSES 

1130 

c» 

CALCULATE  PSlPPl  FOP 

AN  ISENTROPIC  RFCOMPRCSSION  TO 

•SSES 

11*0 

c* 

SONIC  CONDITIONS.  HP?  IS  OBTAINED  FROM  APpAPS, 

•SSES 

mo 

O'* 

•SSES 

1160 

c**« 

1170 

c 

SSES 

1160 

c 

SSES 

1130 

161 
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APPENOI*  P  CHEMICAL  LAS£B  ANALYST S  PB06BAM  (CLAP) 


subboutin?  ssrs  overlay  b»* 

PAbE 

0-43 

? 

AP?A?SaAPl APS*  ( 1 . 0 .AS1 AP 1 • ( 1 . 0-ASSAS1  >  > 

SSES 

1F00 

CALL  MAAS(6P,MPl.AP?APS,SuP.5.fle-06.MP?,rAJL! 

SSfcS 

)?I0 

inMlL.FO.YESl  BFTUBN 

SSES 

1 PFO 

SSFS 

1  ?30 

C  I  a-FOPMP  1  *F  ( OP  »MP? )  •  (WJPMP  1  /<)  (OP  «  HP? ) 

SECS 

1  ?40 

C?*FOSM$l-F  (85* MS?)  *685551/8 <8S, NS  FI 

SSES 

IFSO 

PS  1 PP 1*01/(A51AP1»C?I 

SSFS 

lF60 

80  TO  S 

SSES 

IF70 

c 

SSES 

IFSO 

c 

SSES 

IF*>0 

c*** 

1  SCO 

c* 

•  SSES 

1310 

c* 

CALCULATE  PS1PP1  AT  THE  5EC0N0ABY  SEPARATION 

•SSES 

I3F0 

c« 

POINT  BASED  ON  A  FUBOSM  CRITERIA. 

•  SSFS 

1330 

c» 

•  SSES 

1340 

c*«* 

1 358 

c 

SSES 

1380 

c 

SSES 

13T0 

.4 

PSPPSlai.n*o.36S*MSl 

SSES 

1  380 

PS?PS0aPSJP50*PS?PS) 

SSES 

1380 

MS?*SOBT(?.0*(PS?PS0**(-) .0/0531-) ,(11/(85.1 .01 1 

SSES 

uno 

AS?ASS-.AAS  (OS.MSFI 

SSES 

1410 

AS?A$latS?ASS*ASSASl 

SSES 

UFO 

AP?APSaAPl APS» (1 ,0»AS1 AP) *(1.0-AS?AS1 > I 

SSES 

1430 

CALL  M»*S(0P.MPJ ,AP?APS,SUP,S.0f-06,NPF.FAIL) 

SSES 

1440 

IF (FAIL .EO. YES  I  RETURN 

SSES 

14S0 

C1«-F0PMP1*F <8P,MP?< •6OPMP1/0 <8P,MP?| 

SSES 

1480 

C?»E6SM$ 1 -F (OS .MS?) *OOSMS 1 /O (63 .MS? ) 

SSES 

UTP 

PS)PP)«Cl, (AS1API*C?I 

SSES 

UBO 

00  TO  S 

SSES 

1480 

c 

SSFS 

1500 

c 

SSES 

1510 

£•*• 

15F0 

c* 

•SSES 

1530 

c* 

CALCULATE  ^StPPl  AT  TkF  MATCHED  PRESSURE  POINT 

•SSES 

1540 

c* 

•SSES 

1550 

c**« 

1540 

c 

SSES 

15T0 

c 

SSES 

1580 

* 

PS  1 PP 1*1.0 

SSES 

1590 

c 

SSES 

1400 

c 

SSES 

1810 

c«#* 

1610 

c» 

•SSES 

1630 

c* 

OVERALL  CONTBOL  VOLUMF  CALCULATIONS 

•SSES 

1440 

c* 

•  SSES 

1850 

c*** 

1660 

c 

SSES 

1670 

c 

SSES 

i  680 

4 

VS«P»PS1PP l *ASI AP 1 *M (MBSMWP. TSOTPO  *  OSOP) «88SMSl /80PMP1 

SSES 

1690 

C 1 ■HSHP*M«PMtfS*0S3  »3P3 

SSES 

1700 

C?«MSWP»M*PMWS*(8S3-l.OI ♦ (OBJ- 1.01 

SSES 

1710 

OMaCl/C? 

SSES 

1 7F0 

OMOPaOM/8P 

SSES 

1730 

MBMMBP* (MSWP.l .0) / (VSmPaMKPMVS  *1.0) 

SSES 

1740 

-4 

1 


] 
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APPENDS  0 

SU8POUTINE  SSES 


CHEMICAL  LASER  ANALYSIS  PROGRAM  <CLaP> 
OVERLAY  PRS 


PAGE  D» A A 


Cl ■TSATRft«VSMP*MMPM*5»G$3»GP3 

SSES 

1750 

C2«VSVP«MVPM*S»OS3*OP3 

SSES 

1  TOO 

TMOTPO«C1/C? 

SSES 

1  TTO 

rrx»M(M*<MMVPtTMorpo,«MflM)*  <psippi«as! ARi»rnsMsi»roPMPi >/( 

SSES 

>  f 80 

- ( l ,n*vsvP) *OGPop i ) 

SSES 

1T90 

C1-0.S*  t<lM-I.0)*Ff  X*FFX-GM*GM 

SSES 

1800 

c?«ffx*ffx-?,o»gn 

SSES 

1810 

C3«  t-C?*SORT  (C?*C?»* ,  0«C1  H/I?.0‘C1  > 

SSES 

1 8?0 

CA« (-C?-SORT <C?*C?*A.0»C1 ) >/(?.0«Cll 

SSES 

1830 

MM^.SOPT  (AMIN1  <0,CA>  1 

SSES 

l«Af> 

PM1PP\ ■ t PS 1PP>  *AS l API *F8SMS 1 *F GPMP ll/((ltft*A51APll*F( OH* MM  J ) l 

SSES 

1850 

PM3PS 1 ■PM3PP 1 /«S 1 PP 1 

SSES 

I860 

PSiPPo»PSiPPl«RPlPPn 

SSES 

18T0 

ppopsi«; .O/PSIPPO 

SSES 

1880 

SSES 

1890 

SSES 

*000 

•  « 

•••SSES 

mo 

• 

•SSES 

19?0 

• 

format  statfmfnts 

•  SSES 

1930 

• 

•  SEES 

19A0 

•  t 

•••SSES 

1950 

SSES 

1980 

SSES 

ItTO 

format «*0*,T?.*1MP0SSIRUF  VALUE ...AS1AP1  ■•,£13.6) 

SSES 

1980 

FAT. 

SSES 

1090 

i 


APPENDIX  F  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 

PROGRAM  SCS  OVERLAY  SCS  PA6C  F-  1 


OVFRL A Y ( SCS • *  *  0 ) 

SCS 

0100 

PROGRAM  SCS 

SCS 

0110 

c 

SCS 

0120 

c 

SCS 

0130 

c*« 

•  « 

‘•SCS 

0140 

c« 

•SCS 

OISO 

c* 

SYSTEM  CALCULATION  OVERLAY  (SCS) 

•SCS 

0160 

c* 

•SCS 

0 1  TO 

C*« 

•  < 

‘•SCS 

01  SO 

c 

SCS 

0100 

c*« 

•  < 

‘•SCS 

0200 

c* 

•SCS 

0210 

c» 

SUBR0U7INF  SCS  CONTROLS  THE  SYSTEM  CALCULATIONS  FOR  PROGRAM  CLAP. 

•SCS 

0220 

c* 

•  SCS 

0230 

c« 

INPUT  VARIABLES! 

•SCS 

0240 

c* 

•SCS 

0230 

c* 

AFPNE 

■ 

TOTAL  AREA  OF  THE  EJECTOR  PRIMARY  NOZZLE  EXITS  PER  K MOLE/S 

•  SCS 

0260 

c« 

OF  LASER  PRIMARY  FLOM  [ S-M2/KM0LE I 

•SCS 

0270 

c« 

AESHRO 

■ 

TOTAL  AREA  OF  THE  EJECTOR,  CONSTANT-AREA,  MIXING  SHROUDS 

•SCS 

0200 

c» 

PER  KMOLE/S  OF  LASER  PRIMARY  FLO*  t S-MJ/KMOLF 1 

•SCS 

0200 

c* 

BRFRAC 

■ 

BANK  RELIEF  FRACTION 

•SCS 

0300 

c* 

CANGLF 

■ 

LASER  CAVITY  HALF-ANGLE  CRAOI 

•SCS 

0310 

c» 

OFORHF 

■ 

CONTROL  VARIABLE  DESIGNATING  OF  OR  mF  LASER  CHEMISTRY 

•SCS 

0320 

c* 

EJECT 

■ 

CONTROL  VARIABLE  DESIGNATING  THE  PRESSURE  RECOVERY  SYSTEM 

•SCS 

0330 

c* 

EREACT 

• 

CONTROL  VARIABLE  DESIGNATING  THE  EJECTOR  PRIMARY  REACTANT 

•SCS 

0340 

c» 

FDAA 

r 

FREE  FLUORINE  FLUX  (KMOLE/S-M?) 

•SCS 

0350 

c» 

GEP 

• 

GAMMA,  SPECIFIC  MEAT  RATIO,  FOR  THE  EJECTOR  PRIMARY 

•SCS 

0360 

c* 

REACTANT 

•SCS 

0370 

c* 

H8ASE 

* 

HEIGHT  OF  A  NOZZLE  BASE  (Ml 

•  SCS 

0380 

c* 

HNB 

a 

HEIGHT  OF  A  NOZZLE  BANK  fM) 

•  SCS 

0300 

c* 

K 

■ 

STORAGE  MODE  CONTROL  ARRAY 

•  SCS 

0400 

c* 

LCAV 

• 

LENGTH  OF  A  LASER  CAVITY  tHJ 

•  SCS 

0410 

c* 

MEPNE 

a 

MACH  NO.  AT  TMF  EJECTOR  PRIMARY  NOZZLE  EXIT 

•SCS 

0420 

c* 

NBANK 

a 

NUMBER  OF  LASER  BANKS 

•SC5 

0430 

c« 

REJECT 

a 

NUMBER  OF  EJECTORS  PER  LASER  BANK 

•SCS 

0440 

c* 

NI 

■ 

NUMBER  OF  CARBON  ATOMS  IN  PRIMARY  REACTANT  I 

•  SCS 

0430 

c* 

N? 

a 

NUMBER  OF  HYDROGEN  (DEUTERIUM)  ATOMS  IN  PRIMARY  REACTANT  1 

•  SCS 

0460 

c» 

N3 

p 

NUMBER  OF  NITROGEN  ATOMS  IN  PRIMARY  PfACTANT  4 

•  SCS 

0470 

c* 

N* 

■ 

NUMBER  OF  FLUORINE  ATOMS  IN  PRIMARY  REACTANT  A 

•  SCS 

0460 

c» 

POEP 

■ 

EJECTOR  PRIMARY  STAGNATION  PRESSURE  IPAI 

•  SCS 

0400 

c* 

POLP 

■ 

LASER  PRIMARY  STAGNATION  PRESSURE  IRA) 

•  SCS 

0300 

c* 

POLS 

■ 

LASER  SECONDARY  STAGNATION  PRESSURE  (PA] 

•  SCS 

0510 

e* 

0 

■ 

HEAT  RELEASEO  PER  KMOLE  OF  PRIMARY  FLO*  BY  THE  CHEMICAL 

•  SCS 

0320 

c* 

REACTION  OF  FLUORINE  IN  THE  LASER  CAVITY  CJFKMOLE) 

•  SCS 

0530 

c* 

RTIME 

■ 

RUN  TIME  CS1 

•  SCS 

0540 

c* 

SCSS? 

■ 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OR  NOT  SYSTEM 

•SCS 

0550 

c* 

CALCULATIONS  ARE  TO  BE  PERFORMED 

•SCS 

03*0 

c* 

STMOOE 

■ 

REACTANT  STORAGE  MODE  DESCRIPTOR  ARRAY 

•SCS 

0570 

c* 

WEP*LT 

■ 

EJECTOR  PRIMARY-TO-TOTAL  LASER  MASS  FLO*  RATtO 

•SCS 

05BO 

c* 

*FPP3 

a 

MASS  FRACTION  OF  LASER  PRIMARY  PRODUCT  3  (FRFf  FLUORINE) 

•SCS 

0500 

c« 

NFPR1 

a 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  1 

•SCS 

0600 

c* 

*FPR? 

a 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  2 

•SCS 

0610 

c» 

MFPR3 

a 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  3 

•SCS 

0620 

c* 

WFPR4 

a 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  * 

•SCS 

0630 

c* 

MFSR1 

a 

MASS  FRACTION  OF  LASER  SECONDARY  REACTANT  1 

•SCS 

0640 
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C«  WFSR?  ■  MASS  fraction  of  LASER  SECONOARY  MFACTANT  ?  »scs 
C»  WFSR3  »  NASS  FRACTION  OF  LASER  SECONDARY  REACTANT  3  *SCS 
C*  WLSWLR  ■  LASER  SECONOARY-TO-PRIMARY  REACTANT  MASS  FLOW  RATIO  *SCS 
C«  WPflWLP  ■  MIRROR  PURGE-TO-LASER  PRIMARY  REACTANT  MASS  FLOW  RATIO  »SCS 
c»  WPP3  ■  MASS  FLOW  RATE  OF  LASER  PRIMARY  PRODUCT  3  IFRFC  FLUORINE)  *SCS 
C«  (KG/S)  »SCS 
C*  FFPP3  •  MOLE  FRACTION  OF  LASER  PRIMARY  PRODUCT  3  (FRFF  FLUORINE)  *SCS 
c*  *SCS 
t*  OUTPUT  VARIABLES)  *SCS 
C»  *SCS 
C*  FAIL  •  “PROP  FLAG  *SCS 
C*  HBXOFV  •  HEIGHT  OF  THE  POX  OEVICE  fMl  *SCS 
C«  LBXDE V  a  length  OF  THE  POX  OEVICE  fNl  «SCS 
C«  LLOS  ■  LENGTH  OF  THF  LASER  OEVICE  SECTION  [MJ  «SCS 
C*  LPRS  ■  LFNGTH  OF  THE  PRESSURE  RECOVERY  SYSTEM  JM)  *SCS 
C»  MAW  ■  TOTAL  mass  OF  THE  AFRO-WINDOWS  CKGj  *5CS 
C»  MBASE  «  TOTAL  NASS  OE  THE  LASER  NOE7LF  RASES  {KOI  *SCS 
C»  MCA V  »  TOTAL  MASS  OF  THE  LASER  CAVITIES  (KOI  *SCS 
C«  MCB  ■  TOTAL  MASS  OF  THE  COMBUSTOR  BOOIES  CKGJ  *SCS 
C»  MCS  •  MASS  OF  The  COOLING  SYSTEM  (KG)  *SCS 
C»  MOS  ■  MASS  OF  THE  OEVICE  SUPPORT  (KOI  *SCS 
C»  MEJECT  ■  TOTAL  MASS  OF  THE  EJECTORS  ( KG  1  *SCS 
C»  MEL  INF  ■  MASS  OF  THE  EJECTOR  REACTANT  FEED  LINFS  f KG)  «SCS 
C*  MERREG  ■  MASS  OF  THE  EJECTOR  PRIMARY  REACTANT  REGULATOR  IKG1  *SCS 
C»  MERT  a  MASS  OF  THE  EJECTOR  PRIMARY  REACTANT  TANKAGE  AND  FLUID  *SCS 
C*  (KOI  *SCS 
C«  MINJ  «  TOTAL  mass  OF  THE  INJECTORS  f KG1  »SCS 
C*  MLOHOW  «  MASS  OF  THE  LASER  OEVICE  HAROWARE  IPG)  *SCS 
C«  MLOS  a  MASS  OF  The  LASER  DEVICE  SYSTEM  (KQ1  *SCS 
C*  MLLINE  a  MASS  OE  THE  LASER  REACTANT  FEEO  LINES  IKO}  »SCS 
C*  MLRREG  a  MASS  OE  THE  LASER  REACTANT  REGULATOR  [KG I  *SCS 
C*  MLRT  a  MASS  OF  THE  LASFR  REACTANT  TANKAGE  AND  FLUID  f  KG  I  *SCS 
C«  MM I  SC  •  MASS  OF  MISCELLANEOUS  ITEMS  [KG!  *SCS 
c*  MOPT  ■  TOTAL  MASS  OE  THE  LASER  OPTICS  (KG)  *SCS 
C«  MPRMOW  •  MASS  OF  THE  PRESSURF  RECOVERY  HARDWARE  (KG)  *SCS 
C*  MPRS  a  MASS  OE  THE  PRESSURE  RECOVERY  SYSTEM  (KG)  *SC$ 
C«  MSUBO  -  TOTAL  MASS  OF  THE  SUBSONIC  DIFFUSERS  (K8I  *SC5 
c*  M5UP0  a  TOTAL  MASS  OF  THE  SUPERSONIC  DIFFUSERS  (KG)  *SCS 
C«  MTOTAL  ■  TOTAL  SYSTEM  MASS  (KG)  »SCS 
C*  VAW  a  TOTAL  VOLUME  OF  THF  AERO-WINDOWS  (M3)  -SCS 
C«  V8X0EV  a  VOLUME  OF  THE  POX  OEVICE  (M3)  »SC5 
C«  VCA V  a  TOTAL  VOLUME  OF  THF  LASER  CAVITIES  (M3)  »SCS 
C«  VCOMB  a  TOTAL  VOLUME  OF  THE  LASER  COMBUSTORS  (M3)  »SCS 
C«  VCS  a  VOLUME  OF  THE  COOLING  SYSTEM  [M3]  *SCS 
C*  VEJECT  a  TOTAL  VOLUME  OF  THE  EJECTORS  (M3)  *SCS 
C«  VERT  a  VOLUME  OF  THE  EJECTOR  PRIMARY  REATANT  TANKAGE  (M3)  *SCS 
C*  VLOHOW  a  VOLUME  OF  THE  LASER  OEVICE  HARDWARE  (M3)  *SCS 
C*  VLDS  •  VOLUME  OF  THE  LASER  OEVICE  SYSTEM  (M3)  *SCS 
C*  VLRT  •  VOLUME  OF  THE  LASER  REACTANT  TANKAGE  (M3)  »SCS 
C*  VOPT  •  TOTAL  VOLUME  OF  THE  LASER  OPTICS  (M3)  *SCS 
C*  VPRHDw  ■  VOLUME  OF  THE  PRESSURE  RECOVERY  HAROWARE  (M3)  *SCS 
C*  VPRS  «  VOLUME  OF  THE  PRESSURE  RECOVERY  SYSTEM  (M3)  *SCS 
C*  VSUBD  a  TOTAL  VOLUME  OF  THE  SUBSONIC  DIFFUSERS  (M3)  *SCS 
C*  VSUPD  a  TOTAL  VOLUME  OF  THE  SUPERSONIC  DIFFUSERS  (M3)  -SCS 
C*  VSYSTm  a  TOTAL  VOLUME  CONTAINING  THE  SYSTEM  (M3)  *SCS 
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c« 

VTOTAL  ■  TOTAL  VOLUME  OCCUPIED  RY  THE  SYSTEM  (MS) 

•SCS 

1200 

c* 

WBASE  ■  WIDTH  OF  A  NOZZLE  BASE  (M3) 

•SCS 

12io 

c* 

WNXDCV  •  WIDTH  OF  THE  BOX  DEVICE  (M3) 

•SCS 

1220 

c« 

XLP  »  LASER  PRIMARY  PRODUCT  MOLAR 

FLOW  RATE  (KMOLE/S) 

•SCS 

1230 

c* 

•SCS 

1240 

c*« 

‘••SCS 

12S0 

c 

SCS 

1260 

c«< 

‘••SCS 

12T0 

c* 

•SCS 

1230 

c« 

NOTATION  SCHEME 

•SCS 

1290 

c* 

•SCS 

1300 

c« 

THE  storage  mooe  descriptor  array, 

STMODE ( I , J)  »  STORES  OATA  BY 

•SCS 

1310 

c* 

DESCRIPTOR  (ROW)  AS  FOLLOWS! 

•SCS 

1320 

c* 

•SCS 

1333 

c« 

I  0F5CRIPT0R 

1  DESCRIPTOR 

•SCS 

1340 

0* 

1  reactant 

A  STORAGE  TIME  (DAYS) 

•SCS 

1350 

c* 

2  phase 

T  STORAGE  PRESSURE  (PA) 

•SCS 

1300 

c« 

3  CONTAINER 

s  storage  pressure  rp$n 

•SCS 

13T0 

c* 

«  STORAGE  TEMPERATURE  (K) 

9  REACTANT  FEED  SYSTEM 

•SCS 

1 3B0 

c* 

5  STORAGE  TIME  IS) 

10  MATERIAL 

•SCS 

13**0 

c* 

•SCS 

1*09 

c* 

AND  RY  FLUIO  (COLUMN)  AS  FOLLOWS! 

•SCS 

1*10 

c« 

•SCS 

1*20 

c* 

J 

J 

•SCS 

1*30 

c* 

1  descriptor 

6  LASER  REACTANT  * 

•SCS 

1**0 

c* 

?  LASER  REACTANT  1 

T  aero-window  fluid 

•SCS 

1*50 

c* 

1  LASER  REACTANT  2 

B  COOLING  SYSTEM  FLUID 

•SCS 

1*&0 

c* 

4  LASER  REACTANT  3 

0  EJECTOR  REACTANT  1 

•SCS 

1*T0 

c« 

S  LASER  REACTANT  4 

10  EJECTOR  REACTANT  2 

•SCS 

1*80 

c* 

•SCS 

1*90 

c» 

•••SCS 

1500 

c 

SCS 

1510 

c 

SCS 

1520 

IMPLICIT  REAL(L,M) 

SCS 

1530 

c 

SCS 

15*0 

REAL  NO 

SCS 

1550 

c 

SCS 

1500 

C0MM0N/CCS3/0F0RHF 

SCS 

15T0 

c 

SCS 

1580 

C0MM0N/CCS4/FDAA 

SCS 

1590 

c 

SCS 

1000 

COMMON /CCS5/N1 ,N?,N3,N4 

SCS 

1010 

c 

SCS 

1020 

COMMON /CCS7/0 

SCS 

1030 

c 

SCS 

10*0 

C0MMON/CCS9/WFPP3, WFPRl , WFPR4,WFSR ) 

SCS 

1050 

c 

SCS 

1000 

COMMON/CCS 10/MFPR?,WFPR3,WFSR?,WF SR 3 

SCS 

1 OTO 

r 

SCS 

1080 

COMMON/CCS 11 /WPGWLP 

SCS 

1090 

c 

SCS 

1  TOO 

COMHON/CCSI5/XFPP3 

SCS 

1  T 1  0 

c 

SCS 

1T20 

COMMON /L0S5/8RFRAC.CAN0LE,MeASE,HNB.LCAV 

SCS 

1 T30 

r 

SCS 

17*0 
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COPPON/LOS6/POLP.POLS.VLSWLP 

SCS 

1750 

c 

SCS 

1760 

COPPON/PAINt/FAIL 

SCS 

1770 

c 

SCS 

1  780 

C0PM0N/PRS4/AEPNF,ACSKPD.PEPNE,WFPWLT 

SCS 

1 7V0 

c 

SCS 

1*00 

COMMON /PR5 5 /EJECT 

SCS 

1*10 

c 

SCS 

1*20 

COMPON/PRSK/GEP.POEP 

SCS 

1830 

c 

SCS 

1840 

COMPON/SCS1/SCSS? 

SCS 

1*50 

c 

SCS 

1860 

C0mm0n/SCS2/EREACT,NRANK,NEJECT,RT1ME,WPP3 

SCS 

1*70 

c 

SCS 

1880 

c 

SCS 

1*40 

COPMON/SCS3/H8XOEV,LRXDEV,LLDS,LPRS,NAW,PRASE,PCAV,PCB,MCS,MDS. 

SCS 

1900 

-pfjfct,peltne,pepreg,mert,minj,pldhdw,mlds,mlline,plrres,mlrt. 

SCS 

1910 

-PPISC.pOPT.HPRHOW,MPRS,PSURO,MSUPO,PTOTAL,VAW,V8XDfv,VCAV,VCOMBa 

SCS 

1920 

-VCS»VFJFCT ,VERT , YLONDW , VLDS , VLRT ,VOPT , VPRNOV, VPRS, VSU80, VSUPO, 

SCS 

1930 

-VSYSTM,VTOTAL,WBASE,WRXOEV,XLP 

SCS 

1940 

c 

SCS 

1950 

COPMON/SCS4/K (10) 

SCS 

1960 

c 

SC5 

1970 

C0PP0N/SCS5/STM00E ( 1 0 . 1 0 ) 

SCS 

1980 

c 

SCS 

1990 

DATA  SOANGL/O. 1221 73/, TRAN81 /O. 523599/. TRANO2/0. 523599/ 

SCS 

2000 

c 

SCS 

2010 

DATA  CAE/3HCAE/ »DIF/3HDIF/»HF/2HHF/,N0/2HN0/*SSE/3HSSE/»  YES/3MYES/SCS 

2020 

c 

SCS 

2030 

c 

SCS 

2040 

c**« 

'•SCS 

2050 

c* 

•SCS 

2060 

c« 

FUNCTION  STATEPFNTS 

•SCS 

2070 

c* 

•SCS 

2080 

Citi 

'•SCS 

2090 

c 

SCS 

2160 

c 

SCS 

2110 

TOTM(6,M)«1.0*0.5*(8-1.0>*M*M 

SCS 

2120 

A ASM (G ,M ) » ( (2.0*TOTM(8,M)/ ( 0*1.0) > •* ( 0 .5* »G* 1 . 0> / « G-l . 0) >  > /M 

SCS 

2130 

c 

SCS 

2140 

c 

SCS 

2150 

'•SCS 

2160 

c* 

•SCS 

1170 

c* 

READ  INPUT  DATA 

•SCS 

2180 

c* 

•  SCS 

2190 

C<HH 

'•SCS 

2200 

c 

SCS 

2210 

c 

SCS 

2220 

CALL  INSCS 

SCS 

2230 

IF;FAIL.eO.YES)  GO  TO  120 

SCS 

2240 

lE(SCSSP.FO.NO)  GO  TO  202 

SCS 

2250 

c 

SCS 

2260 

c 

SCS 

2270 

c*«< 

»»scs 

2280 

c* 

•SCS 

2290 
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E-  S 

C» 

INITI AL I  IE  The  STORAGE  MODF 

DESCRIPTOR 

•  SCS 

?300 

C» 

ARRAY  AND  TANK  VOLUME /MASS 

VARIABLES 

•sc* 

?310 

C* 

•SCS 

?3?0 

C«t« 

••SCS 

?330 

c 

SCS 

?3A0 

c 

SCS 

?350 

00  101  t«1.10 

SCS 

>360 

00  101  *?»?,io 

SCS 

tsro 

101 

STM00E(|,J)«10H 

SCS 

?3S0 

MEPT-0.0 

SCS 

mo 

NLRT-fl.O 

SCS 

?A00 

VERT-0.0 

SCS 

?A  1 0 

VLRT-0.0 

SCS 

?A?0 

c 

SCS 

*430 

c 

SCS 

?  ACO 

c>«« 

••SCS 

1*50 

c» 

•SCS 

?*60 

c* 

SYSTEM  SCALE-UP  CALCULATIONS 

•SCS 

SATO 

c* 

•SCS 

SAGO 

c#«< 

•*scs 

SAGO 

c 

SCS 

S300 

c 

SCS 

?51 0 

XLP-MPP3/ (XFPP3*1 6 .GOG A) 

SCS 

S5S0 

c 

SCS 

S530 

c 

SCS 

S3A0 

C*«4 

••SCS 

S550 

c« 

•SCS 

S560 

c« 

CALCULATE  THE  LASER  PRIMARY  i  SECONDARY  REACTANT  TANK  VOLUME/MASS 

•SCS 

S5T0 

c* 

•SCS 

MOO 

CM4 

••SC3 

S5G0 

c 

SCS 

?600 

c 

SCS 

7610 

VLP-MPP3/WFPP3 

SCS 

?6?0 

mlpr-vl?»rtime 

SCS 

S630 

HLS-HLSMLP-MLP 

SCS 

?6A0 

mlsr-mls-rtime 

SCS 

?  650 

c 

SCS 

S660 

IF(OFORMF.NE.HF»  GO  TO  10? 

SCS 

?6T0 

CALL  VM0?(?,NFPR1*M!.PR,PPLP.MLRT,VLRT) 

SCS 

?6G0 

CO  TO  105 

SCS 

S6G0 

10? 

ir (N1.EO.?.ANO.N?.EO.A)  SO  TO  103 

SCS 

STOO 

IF (Nl.EO.O.ANO.NJ.EO.?)  GO  TO  10A 

SCS 

ST10 

103 

CALL  VMC?ML(?,MFPR1«*LPR,P0LP.MLRT 

.VLRT) 

SCS 

?T?0 

GO  TO  105 

SCS 

?730 

10A 

CALL  VMM? ( ?«NFPR 1-MLPP tPGLP.NLRT. VlRT ) 

SCS 

?T*0 

10S 

NVANK-1 

SCS 

ST50 

c 

SCS 

STOO 

MHE-WFPR?*MLPR*NFSR?*MLSR 

SCS 

STTO 

IF (K (5) .LT.3.ANO.MFSR?.CO.O.O)  GO 

TO  106 

SCS 

STSO 

IF (MHE.FO.0,0)  GO  TO  106 

SCS 

ST*0 

IF(NFPR-.NE.O.O.ANO.MFSR?.NE.O.O) 

PO-AMAX 1 (PCLP*POLS) 

SCS 

*600 

IF (MFPRS.NE . 0 , 0 • AND. VFSR? . EP , 0 .0) 

PO-POLP 

SCS 

SGI  0 

IF (WFPRP.rO.O.O.ANO,NFSR?.NE.O.O) 

P0-P0L5 

SCS 

SOSO 

CALL  VNHE(3,MMF,P0,MLRT,VLRT) 

SCS 

SG30 

NT  ANK-NT  ANK* l 

SCS 

SOAO 
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t*NF»o,n 

106  IE<N3,EO.O.O.ANO.N4.FO.?>  #0  TO  10T 

CALL  VHNES(5.NME.VEPP4*NLPR.P0LP.NLRT,VLRT> 

00  TO  118 

JOY  CALL  VMr?(3.RERR*»NLPP.MHE.P0LP.NLRTtVL«T) 

100  N ( 8NK»NT  ANK ♦ 1 

C 

IE CWEPR3.EQ. 0 , 0. ANO.NESR3.EQ.O .0 )  8C  TO  100 
IE (WEPR3.NE . 0 . 0 . AN0.KESR3.NE .0.0)  P0MNAX1 (POLP.POLS) 
IEJWEPR3.NE.O.O.ANO.VESR3.EO.O.O)  PO-POLP 
IF  INEPR3.FQ. 0.0. AND.KESR3.NE .0.9)  PO-EOLS 
CALL  VMNF(A.NEPR3*NLPR»VESR3«NLSRtE0»NLRT.VLRT) 

NTANKbNTANK* 1 

c 

109  IE (OEOPHF.EQ.HE)  CALL  VMH? 16.KE$R1*NLSR*P0LS.MLRT,VlRT ) 
IFlOEORME.NF.HE)  CALL  VKO? ( 6 « NESP ! •NLSR »POLS *MLRT , VLRT ) 

NT  ANKbNT  ANK ♦ 1 

C 

MLBPE«»NTANK«<*LP*wLS) 

C 

C  . . . < 

c* 

c*  CALCULATE  THE  LASER  OEVICE  VOLUMF/MASS 

C*  .  . . 

c 

c 

ANR«XLP«XEPM3/ ( EOA A*NB ANK ) 

NNRsANR/HNB 
arase-ana/arerac 
v  i)  ASE  * A BASF /HAASE 
DA*HBxSE*2.0*LCAV*TAN<CANOLE) 

nmaxmrase/oa 

c 

LINJ-1 ,0558?E-08*POLP»MBASE*1 .143E-02 
MINJ»7.*)4890E*03«A8ASF«LINJ*NBANK 

nca>wbasf/nmak 

NCB»l . A2687E*04» ( I . 10519f-09*POLP*< (KC8*5.08E-04) «NCB* (HBASE* 
•5, OBE-JA ) *HBASE ) ♦ 7.M 289E-05* (NCB*HB ASE* 1 . 0 l 6E-02) ) *NHAX*NBANK 
NBASE«150.808*ABASE*NBANK 
LCOHB*  ANAX 1  j2.0*HPASE,LINJ*0.m<>00) 

VCOHA* ABASE *LCOHB*NB ANK 

C 

ASCAV»E ,0*LCAV*NBASE/CO5 (CANOLE ) 

TAUaANAX* ( 1 ,27000E-03.4.77485E-03«OA) 
HCAV*7.91AA5E*03*TAU*ASCAV*NBANK 
VCAV*KBASE*LCAV*ihBASF.OA)*NBANK/?,0 
C 

OHIR*SORT (LCAV*LCAV*OA*OA) 

B*OHtR  2.54000E-0? 

KMIR*1  (>3?.?B*0HIR**?.A 

HOPT* ( J . 0*MHIP*?70 , 530*B* ( KB ASE*B«  0 , 609600 ) *(0.125*kBASE*B* 
-7.8200flE-0?>O6.2B74)*N8ANK 


SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

•SCS 

•SCS 

•SCS 

•SCS 

•SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 

SCS 


7850 

2860 

?«70 

mo 

2890 

2900 

7910 

mo 

mo 

mo 

mo 

I960 

2970 

7980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3080 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3180 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3280 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3380 

3370 

3380 

3390 
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V0PT»«0.7flS398»S*S« (WPASE .0.60RA001 •?,?<»A5R»B»?.T8000E“03- 

SCS 

3400 

-LCAV«fcRASf •  (DA-MRASE  l /?. 0  >  •NBANK 

SCS 

3410 

c 

SCS 

34E0 

N05-0.i»<MINJ*NCB*MRASE*NCAV*NOPT} 

SCS 

3430 

c 

SCS 

3440 

c 

SCS 

3430 

c»« 

•••••SCS 

3460 

c* 

•  SCS 

3470 

c* 

CALCULATE  THE  AERO-WINDOW  VOLUME /MASS 

•SCS 

3480 

c* 

•SCS 

34*0 

c««« 

•••••SCS 

3300 

c 

SCS 

3310 

c 

SCS 

3S*0 

wpur6E-wo«vlp**lp 

SCS 

3330 

HAW-3. 3?3?0*NBASE»N8AN»< 

SCS 

3340 

WAWL-1.S7480E-02*HRASE*NRANK 

SCS 

3330 

MAWE- ( WAW.WPURQE ) »RT I  ME 

SCS 

3360 

CALL  VM»W«T,MAWE,RTIMC.MLPT,VLRTi 

SCS 

3370 

ntank-ntank.i 

SCS 

3360 

MAW-41  3 .391  *HBASE -NBANK 

SCS 

33*0 

VAW-0,309974»HBASE»NRANK 

SCS 

3600 

c 

SCS 

3610 

c 

SCS 

3620 

rt« 

3630 

c« 

•SCS 

3640 

c» 

CALCULATE  THE  COOLING  SYSTEM  VOLUME /MASS 

•SCS 

3630 

c* 

•SCS 

3660 

c»*« 

3670 

c 

SCS 

3660 

c 

SCS 

36*0 

WCS-3. 98076E-07«0»XLP 

SCS 

3709 

IE(K (10) .F0.3)  WCS-3, C*WCS 

SCS 

3710 

mcse-wcs*rtime 

SCS 

3720 

call  VMCS(B.MCSE,»TIMC.MCS.VCS) 

SCS 

3730 

ntanb-ntank* i 

SCS 

3T40 

c 

SCS 

3730 

LLTNE-NT»NK-(I.T3205-(VLRT*VCS)**(1.0/3.0)*NBANK* 

SCS 

3760 

-SORT (HRASE*MBASE*WBASE»WBASE ♦ (LCOMB+LCAV) •  •?) ) 

SCS 

3770 

MLLINE-0.?26239*LLINE 

SCS 

3780 

c 

SCS 

3790 

c 

SCS 

3800 

C«t< 

•••••SCS 

3810 

c* 

•SCS 

3820 

c« 

CALCULATE  THE  SUPERSONIC/SUBSONIC  DIFFUSER  VOLUmEVMASS 

•  SCS 

3830 

c* 

•SCS 

3840 

3830 

c 

SCS 

3860 

c 

SCS 

3870 

<E  JCCT.EQ.NO)  60  TO  113 

SCS 

3880 

IF  (E JCCT .EO.SSE )  30  TO  HO 

SCS 

3890 

LSUPO-9.0-OA 

SCS 

3900 

ASSUPO-LSUPD* ( i . 0«WB ASE* ( NMAX ♦ 1 ) *DA ) 

SCS 

3910 

MSUPO"7.9164SE*03«TAU»ASSUPD*NBANK 

SCS 

3920 

VSUPO-D A*WB ASE-LSUPD-NBANX 

SCS 

3930 

c 

SCS 

3940 
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LSURO»S.O»OA 

SCS 

3R50 

DPaOA*?. 0*LSUBO*T AN ( SPANGL ) 

scs 

3980 

ASSU8O«LSU80«(2.0»RRASF/C0S(Sr)ANOL)*(NNA)(»l  (•(DA»OR)/?,0) 

scs 

3970 

TAO-ANAX1 (1 .?7000E-03.4.77465C-03»DB> 

scs 

3980 

MSUR0»7,91 645E *03«TAU*AS5URO»NRANK 

scs 

3990 

VSUR0aWRASF*LSUR0«(0A»08i CN8ANA/2.0 

scs 

4000 

c 

scs 

4010 

c 

scs 

4020 

(■••• 

••scs 

4030 

c* 

•scs 

4040 

c* 

CALCULATE  THE  FJECTOR  PRIMARY  REACTANT  TANK  YOLUNE/NASS 

•scs 

4050 

c* 

•scs 

4080 

c*** 

••scs 

4070 

c 

scs 

4080 

c 

scs 

4090 

110 

IF(EJECT.EO.DIF)  GO  TO  115 

scs 

4100 

WLTaWLP*Ml3*MAWL*«RURGC 

scs 

4110 

WEPa«ERRLT*ULT 

scs 

4120 

hfpr«nep*rtime 

scs 

4130 

IF  (FREACT.E0.10NN7HA  )  80  TO  111 

scs 

4140 

IF (FREACT.EO.IOHIRFNA/NNM  1  80  TO  11? 

scs 

4150 

111 

CALL  VMN2N4 ( R. REPP. POEP.RT IRE. MFRT» VERT) 

scs 

4180 

NTANKal 

scs 

4170 

MCRRE0>1.5>HEP 

scs 

4180 

GO  TO  113 

scs 

4190 

11? 

CALL  VNNNN ( 9, 0. G5*HEPR.P0EP^RT INC, NERT* VERT) 

scs 

4200 

CALL  VMIRFNAI 10.0. 35»REPR,P0EP,RT IMF. NERT.VFRT) 

scs 

4210 

NTANKa? 

scs 

4220 

NERRE8a?.54NCP 

scs 

4230 

c 

scs 

4240 

c 

scs 

4250 

<:••• 

••scs 

4280 

c* 

CALCULATE  THE  SU8S0NIC/SURERS0NIC  EJECTOR  VOLUNE/NASS 

•scs 

4270 

c» 

•scs 

4280 

c* 

•scs 

4290 

c**» 

••scs 

4300 

c 

scs 

4310 

c 

scs 

4320 

ns 

!F (EJECT. EO.SSE)  80  TO  114 

scs 

4330 

NMAXaWBASE/08 

scs 

4340 

IF (NCJFCT.EQ.O. OR. REJECT. 8T.NMAXI  NCJECTaNNAX 

scs 

4350 

VTRaHBASE /REJECT 

scs 

4360 

OCaSORT (WTR40B) 

scs 

4370 

LTR1 a ( DC-OB ) / ( 2. 04T  AN ( TRAN81 1 ) 

scs 

4380 

TMETAaATANl (VTR-DC) / (2.0*LTR1 1 ) 

scs 

4390 

OOal .12838*00 

scs 

4400 

LTP?a (00-00 / (2.0*TAN (TRANS?) ) 

scs 

4410 

ASTRaLTRI*( (VTR*OC) /COS (TRANG1 )♦ (DB*DC) /COS (THETA) ) »LTR2* ( 2 . 0*DC 

•  scs 

4420 

-l.B7080»DO) 

scs 

4430 

TAUaAMAXl ( i . 27000E-03 . 3 .?5000E-03«DD) 

scs 

4440 

NTRaT.91 G45E  *03*T  AU*ASTR*NC JECT  *NB ANK 

scs 

4450 

VTRa0C*0C* (LTR1 *LTR2) *NEJECT*NRANK 

scs 

4460 

c 

scs 

4470 

ACONEaAEPNE*XLP/ (N8ANK«NEJECT) 

scs 

4480 

AEaAESHRO*XLP/(NBANK*NEJECT) 

scs 

4490 

oooooonon 
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C 


c 


c 


c 


(. 


11* 


c 


DCONt *  1 , 1 ?838»S0RT < ACONE ) 

A5CONC«*„0*ACONC 

NCONf  nR  .04)1 1 • ASCONE  *NE  v'FCTvNUANK 

ASTA»aAC*)N{/AASM(«EPtNCRNf  ) 

0PIFN-3.S6B?3*S0RT (ASTAR) 

ASPlENaJ.S^ASTAR 

T*Uai.o359RE-084‘P0EP*DPLFN 

NPLFNaT .  9 1 6*  SE *0  3*T  AO* ASPLEN4NE JCCT*N8ANK 

OST»or«l ,93441*SORf (ASTAR) 

DMAXaAHAX 1 IDPLtN.OCONf V 
&*-0,6366?0«DSTRUT 

Ca-OHAIapMAX  >0 .6366*0*0$ TRUT*PN  A« -3.  09?96*AF 
I>L*  t«B»S0RT  Id«8 *4.Q»C ) ) /?„p 
ASSTRT*! ♦5YORO»OSTRUT*DL 
TAUaJ.0719TF-08«P0EP*PSTRUT 
M5TPUTaT.9164SC»03»TAU»AS5TRTaNEJECT *NBANK 

1>C-1.1?R3P»S0PT(AE ) 

OFaDE* ( 1 . 0»#.0»T  AN (50AN9L ' ( 

ASSUROR.  1*1 S9«  (Of  •  (DD.$.0*Ofc  *0L/?.0f  ♦ 

“< (P0*0L ) *SOR f ( 1  *4, 0*PE*0F ♦ (OL-OO)* iDL  »DD)  )  » 

“ ( DL  *DE I «  SORT  (1*6,0 *DF  «DC *■  (DL-OE  )  •  (OL-DE  )  )  * 

->DE*0FJ  4SORT (6*.0*DE«0E» (DF.DE 1  * (OF- DC  I 1 )/*, 0) 

tau*anaxi i i .aroooY-03, 3.ai*?«e-o3*ou 

NSMBpaY  , 91 6*SE • 0 7*T  AU* ASSHRpaNC JECT*N8 ANK 

LCJCCTaLTRl«LTRE«23.3aDC 

NFJFCTaNTR*MCONE«MPLFN»MSTRUf«M$HRD 

VF  JFCTayTRO.  l*139aOF#  (OF«  (OF  *0E 1 /3. 0*004 (3.0‘OD*?, 0*&l 1 /*.<)♦ 
“Of* ( ?6. 0*OE*7 . 0*OL )/l?.0»29 , 0«0L*0L/?4 , 0 ) *NE JECT*NR£NK 

hi:.1?? r*  •T32#5*NT*NK*  < VERT)  *•  ( 1 .0/3.01  * NS ANK*  <  T.0»DF*NCJECT»*BASE ) 

N£LINE«9.??6?39*UIHE 

GO  TO  11* 


CALCULATE  The  SUPERSONIC /SUPERSONIC  EJECTOR  VOLUMF/NASS 


IF (NCJFCT.EO.O.OR.NEJFCT.ST.NNAX)  NE JECTaNMAX 
*E«AESHRO*XLP/ (NRANK*NE JCCT ) 
°E«1.1»B3#*S0RT(AF) 

“TRaNBASE/NEJECT 
011*1 •1?B38*SQRT (*TR*0A) 

*STRal4.0*OA*NTR*0E 

TAUaANAX'l  <1.27000C-03,3.TSOOOE-03*00) 

HTRa7,91643C«03*TAU*ASTR*NEJECT*NBANi< 

ACONEaAFPNE*XLP/ ( NB ANK*NF JECT 1 


SCS 

4S00 

SCS 

4S10 

SCS 

43F0 

SCS 

*330 

SCS 

*340 

SCS 

*330 

SCS 

*360 

SCS 

*370 

SCS 

ftSBO 

SCS 

43*0 

SCS 

4600 

SCS 

*610 

SCS 

«6?0 

SCS 

*630 

SCS 

*6*0 

SCS 

*630 

SCS 

*660 

SCS 

*6T  0 

SCS 

*680 

SCS 

♦6*0 

SCS 

*700 

SCS 

*710 

SCS 

*T?0 

SCS 

*730 

SCS 

*740 

SCS 

*730 

SCS 

*760 

SCS 

*770 

SCS 

*780 

SCS 

♦  790 

SCS 

*800 

SCS 

4810 

SCS 

*8?0 

SCS 

4830 

SCS 

4840 

SCS 

4830 

SCS 

*860 

SCS 

*870 

•SCS 

4880 

•SCS 

4890 

•SCS 

4900 

•SCS 

4910 

•SCS 

49E0 

SC5 

*930 

SCS 

*940 

SCS 

*930 

SCS 

4960 

SCS 

*970 

SCS 

4980 

SCS 

4990 

SCS 

3000 

SCS 

3010 

SCS 

3020 

SCS 

3030 

SCS 

5040 
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PAGE 

F-10 

A!iTAR«»CONF/AASK  (Of  P.MfPNf  ) 

SCS 

SOSO 

OSTAfl*  (ftr-SOBT  (OF«Df- J  . ?T 3?*« AST AR  1  1  /F.O 

SCS 

SO  A  0 

l:onf«i (Pf-oO) /?,n-nsTA»i /n.?A?«*o 

scs 

SOTO 

ASCONFo.  l*l59«(f)F«LfONE.  |OD*Pr-?.0»DSTAB)  •SQRT|LCONE»LCONF* 

scs 

SOAR 

-  <0F  -»T,  {l*PST AR~DD )••?)/?, 0 ) 

scs 

S090 

**C0NC»1  0.0439*  ASCnNf4NfJCCT*NB  AN* 

scs 

Sloo 

r 

sc* 

Silo 

0PLEN"3.4AR?S*S0BT (ASTAR) 

scs 

S1?0 

CbAMAA) <0F-0PCFN,nA«PPLFN| 

scs 

SI  30 

A$PLEN«9.A6960*C«OPLf N 

scs 

S 1  *0 

TAU»F.A71O7F-OA»P0FP»OPLFN 

scs 

SISO 

MPL  FN« 7.91A44F»03*T  AU« ASPL FN*NF  JF  C  T  *NBANK 

scs 

S 1  AO 

c 

scs 

S 1  TO 

OFoOF*  ( 1  . 0»A,O*TANf  SPANOL  1  1 

scs 

SIAO 

ASSMRPbT.  Ml  S0*<T,4*PF*0f .  <DF«PF|  *SORT  .  0*DF«DF*  (PF-Ofi* 

scs 

S190 

-<0F-DF) )/4vftl 

scs 

s?oo 

TA|JaA*A(  t  ( 1  ,?7000E-03. 3 . ? 1 4?0F -ft 3*PF  ) 

scs 

s?io 

NSMR0*7, 9  J645F«03*T  AO* ASSnR0*NF JECT«NR ANK 

scs 

5?P0 

r 

scs 

5F30 

LrjFCT»lH.!i»nF 

scs 

s?*o 

MFJFCTaMTP*MCONE.MPLFN.MSHRO 

scs 

5?S0 

VFJFCTaT. 1*15«*DF* (3.A?S*OF«OF*  <DF*DF*DE*OF.nr*OF|/j,0|..NFJFCT* 

scs 

5J»A0 

-mbank 

scs 

s?70 

r 

scs 

5?R0 

LL  INF  « 1  ,T3?03*NTANK* (V*BT) •• M  .0/3.0)  » N.IANK •  1 7  .  t>*DF  *NF  JECT*MBASt  > 

scs 

SP90 

MtLINF»0.??N?39«lLINf 

scs 

S300 

r 

scs 

S3I0 

c 

scs 

53?0 

c«  •• 

•scs 

S330 

c* 

•scs 

S3A0 

c« 

SYSTFM  SUMMARY  CALCULATIONS 

•scs 

S3S0 

c« 

•scs 

53A0 

c##<# 

•  scs 

5370 

c 

SC5 

5380 

r 

scs 

S390 

lis 

Ml  vt>*aM3NJ.MCt«MRASF  «MC A v*MA*»MCS bMOP T •  MRS ♦NLRRCO.mLL INF 

scs 

5400 

VI  f)NOM»VCOMR.VCAV.VAP«VCS«VOP7 

scs 

5410 

mlos»mlompm»mlrt 

scs 

54*0 

YLPSbVLDNOMbVLRT 

scs 

5430 

LLOSuLCOMR*LCAV 

scs 

5440 

c 

scs 

5450 

IF  iFJFCT.fO.riIF)  OP  TO  J  I A 

scs 

5400 

IF  IFJtCT.FO.CAE)  00  TO  ||7 

scs 

5470 

IF  (£JFCT  .FO.SSF  (  00  TO  HI. 

scs 

5480 

MPRjBO.n 

scs 

5490 

vp^sno.o 

scs 

5S00 

LPL'S*0, ft 

scs 

SSI  0 

HRXOFVbJ ,s*pa*npank 

scs 

55*0 

00  TO  1)9 

scs 

5536 

c 

5CS 

5540 

Ilf 

MPRS«MSUP0»MSU80 

sen 

ssso 

VPRS»VSUPC*VSUBO 

scs 

SSAO 

LPRS*LSUPO*LSUPO 

scs 

3570 

vr»PFV»l . 4*DB*NPAN5 

scs 

5380 

<■  ''119 

scs 

13590 

1  Ih 
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PAGE 

E-*l  1 

C 

SCS 

5600 

11? 

MPRHOV»MSUPD*MSUnO*MFjecT.MERRFO*Mf L INE 

SCS 

0610 

VPRHl>M«VSUPD*VSURO«VFJFtT 

SCS 

tut 

mprs*mprhow«mert 

SCS 

§630 

VPRS"VPRHOM» VERT 

SCS 

§640 

LPRS«LSUPD*LSUBD*LE JECT 

SCS 

§6§0 

M8*0ev«1.5«0L*NBANK 

SCS 

§660 

00  TO  U9 

SCS 

§670 

C 

SCS 

§660 

118 

MPRHDW»MFJCCT*MERREG»MEL ine 

SCS 

§600 

mPRS«MPRMOR*MFRT 

SCS 

5700 

VPRSrVEJECT  *vert 

SCS 

§710 

LPRS-LEylECT 

SCS 

5720 

MBX0EV»1  .S«DE*NBAMK 

SCS 

5730 

C 

SCS 

5760 

119 

MNISC-AM1M1 (362.8T4.0.1«1ML0S*MPRS) 1 

SCS 

5750 

MTOTAL»MLDS*HPRS*MMISC 

SCS 

5700 

VTOTAL«VLOS*VPRS 

SCS 

5770 

VSVSTM«?.0*VTOTAL 

SCS 

5780 

LBXDEV«LLDS>LPRS 

SCS 

5790 

WftXDFVal,l*M8ASE 

SCS 

5800 

VBXDEV«LBXDEV»MBXDEV*H8XDFV 

SCS 

§810 

C 

SCS 

58»0 

c 

SCS 

5830 

5840 

c* 

•SCS 

*850 

c* 

OUTPUT  RESULTS 

•SCS 

5860 

c» 

•SCS 

§870 

5880 

c 

SCS 

5890 

c 

SCS 

5900 

CALL  OUTSCS 

SCS 

5910 

00  TO  202 

SCS 

5920 

c 

SCS 

3930 

c 

SCS 

5940 

C*«MX 

5950 

c« 

•SCS 

5960 

c» 

FAILURE  INDICATORS 

•SCS 

5970 

c» 

•SCS 

5980 

5990 

c 

SCS 

6000 

c 

SCS 

6010 

120 

VRITF (6<?01 ) 

SCS 

6020 

c 

SCS 

0030 

c 

SCS 

6040 

6050 

c* 

•SCS 

6060 

c« 

FORMAT  STATEMENTS 

•SCS 

6070 

c« 

•res 

6080 

C»*»< 

6090 

c 

SCS 

6100 

c 

SCS 

6110 

201 

FORMAT (*0».T 2. •SUBROUTINE  INSCS  MAS  CALLED  FROM  SUBROUTINE 

SC5*>  SCS 

6120 

202 

END 

SCS 

6130 

175 
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SUBROUTINE  INSCS  INHCS 
C  INSCS 
C  INSCS 
(■••“••“•••••“••“•““•““•“••“““•••“•••“•••“•••“•••••••••••INSCS 

C •  •  INSCS 
C*  INPUT  SUBROUTINE  (INSCS)  «INSCS 
C»  • INSCS 
. . . . . . . 

C  INSCS 

“•••••••••“INSCS 

C*  MNSCS 
c*  SUBROUTINE  INSCS  CONTROLS  THF  INPUT  OF  INITIAL  DATA  FOR  THE  SVSTEN  MNSCS 
C*  CALCULATION  SFCTION,  *IN5CS 
C*  • INSCS 
C*  INPUT  VARIABLES l  MNSCS 
C*  •INSCS 
C«  EJECT  ■  PRESSURE  RCCOVFRY  SFCTION  CONTROL  VARIABLE  MNSCS 
C*  N ]  -  NUMBER  OF  CARBON  ATOMS  IN  PRIMARY  REACTANT  )  *INSCS 
C«  N?  •  NUMBER  OF  HYDROGEN  (DEUTERIUM)  ATOMS  IN  PRIMARY  *tNSCS 
C*  REACTANT  1  • INSCS 
C*  N3  ■  NUMBER  of  nitrogen  atoms  in  primary  REACTANT  4  ‘INSCS 
c*  N4  ■  number  of  fluorine  atoms  in  primary  reactant  *  ‘INSCS 

C*  SCSS1  m  CONTROL  VARIABLE  »INSCS 
C»  SCSS3  ■  CONTROL  VARIABLE  MNSCS 
C»  SCSS4  ■  CONTROL  VARIABLE  *INSCS 
C‘  STAW  «  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  N?-Aw  «INSCS 
C»  STCS  •  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  H20-CS  ‘INSCS 
C*  STC?H4  •  STORAGE  MODE  OESCRIPTOR  DATA  ARRAY  FOR  C2M*  ‘INSCS 
C*  STD2  »  STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY  FOR  D2  MNSCS 
C*  STF?  ■  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  F?  ‘INSCS 
C*  STHE  ■  STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY  FOR  ME  MNSCS 
C*  STH2  -  STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY  FOR  M?  ‘INSCS 
C‘  STIPFNA  ■  STORAGE  MOPE  DESCRIPTOR  DATA  ARRAY  FOR  IREN*  ‘INSCS 
C»  STMMH  ■  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  MMM  ‘INSCS 
C*  STNF 1  ■  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  NF 3  ‘INSCS 
C‘  STN2  •  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  N2  ‘INSCS 
C‘  STN?M4  ■  STORAGE  MOOE  OCS'RIPTOR  DATA  ARRAY  FOR  N?H4  MNSCS 
C»  tfFPR?  ■  MASS  FRACTION  OF  HF  ‘INSCS 
C«  MFPH3  •  MASS  FRACTION  OF  N?  ‘INSCS 
C<*  MFSR2  ■  MASS  FRACTION  OF  HE  ‘INSCS 
C‘  MFSR3  ■  MASS  FRACTION  OF  N?  ‘INSCS 
C*  ‘INSCS 
C‘  INPUT/OUTPUT  VARIABLES!  ‘INSCS 
C*  MNSCS 
C‘  EREACT  ■  ALPHANUMERIC  SYMBOL  FOR  THE  FJECTOR  PRIMARY  REACTANT  MNSCS 
C»  E AIL  •  ERROR  FLAG  ‘INSCS 
C«  K  •  STORAGE  MOOE  CONTROL  ARRAY  MNSCS 
C*  NBANK  ■  NUMBER  OF  LASER  BANKS  ‘INSCS 
C«  NEJECT  ■  NUMBER  OF  FJEtTORS  PER  BANK  'INSCS 
C*  •  0.  FOR  THF  MAXIMUM  ALLONARLF  ‘INSCS 
C‘  RTIME  ■  RUN  TIME  IS)  ‘INSCS 
C*  SCSS?  »  CONTROL  VARIABLE  •INSCS 
C»  SETSCS  ■  CONTROL  VARIABLE  MNSCS 
C»  MPP3  ■  EPEE  FLUORINE  MASS  FLOW  RAIE  (NG/S!  ‘INSCS 
C*  ‘INSCS 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
01  TO 
01  BO 
0)90 
0200 
02,0 
0220 
0230 
02A0 
02SO 
0260 
0270 
Q2G0 
0290 
0300 
0319 
0320 
0330 
0340 
0350 
0360 
0370 
0300 
0390 
0400 
0410 
0420 
0430 
0*40 
0450 
0669 
0470 
0400 
0490 
0500 
05)  0 
0520 
0530 
0540 
0550 
0560 
0570 
0500 
0590 
0600 
0610 
0620 
0630 
0640 
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appendix  r  chemical  laser  analysis  prooram  (Clar> 


SUBROUTINE  INSCS  OVERLAY  SCS 

paoe 

E-1J 

C» 

NOTCt  ALL  INPUT  IS  IN  SI  UNITS. 

•INSCS 

0650 

c» 

•INSCS 

0*60 

rn 

0670 

C 

INSCS 

0660 

SEAL  NO  . 

INSCS 

0660 

c 

INSCS 

0700 

DIMENSION  DESCRI ( 10) .TITLE ( in) 

INSCS 

0710 

c 

INSCS 

07P0 

COMMON/CCS3/OEORME 

INSCS 

0730 

c 

INSCS 

07*0 

COMMON/CCSS/Nl ,N?,N3,N* 

INSCS 

0750 

c 

INSCS 

0760 

COMNON/CCS10/NEPR?,MEPR,,MESR?, KESRI 

INSCS 

0770 

c 

INSCS 

0760 

COMMON/MA INI /FAIL 

INSCS 

4700 

c 

INSCS 

0690 

C0MM0N/MAIN6/SET5CS 

INSCS 

0610 

c 

INSCS 

os?o 

COMMON/PRSS/EUECT 

INSCS 

0630 

c 

INSCS 

06*0 

COMMON/SCS 1/SCSS? 

INSCS 

0650 

c 

INSCS 

0660 

C0MN0N/SCS3/ERC ACT •NPANKtNCJECT.RTIME.MPP3 

INSCS 

0870 

c 

INSCS 

0660 

COMMON/SCS*/* (10) 

INSCS 

0660 

c 

INSCS 

0900 

COMMON /SCS5/STM00E (10,101 

INSCS 

0910 

c 

INSCS 

09?0 

c 

INSCS 

0930 

COMMON /SCS6/ST  AM (10,*) 

INSCS 

09*0 

COMMON/SCS  7/STCS (10,5) 

INSCS 

0950 

COMMON/SCSS/STCEH* (10,?) 

INSCS 

0960 

C0MM0N/SCS9/ST0E (10,*) 

INSCS 

0970 

COMMON/SCS 1 0/STE? ! 10,*) 

INSCS 

0960 

COMMON/SCS 1 1 /STHC i l 0 , * ) 

INSCS 

09*0 

COMMON/SCS 1 ?/STH? ( l 0 , * ) 

INSCS 

1000 

COMMON/SCS 1 3/ST I RENA (10,*) 

INSCS 

1010 

COMMON/SCS 1 A/STMMM ( l 0 • * ) 

INSCS 

10?0 

COMMON/SCS 1 5/S  TNE  3 (1 0 , * ) 

INSCS 

1030 

COMMON/SCS 16 /STN? (10,8) 

INSCS 

10*0 

COMMON/SCS 1 7/STNEM* (10,4) 

INSCS 

1050 

c 

INSCS 

1060 

DATA  (DESCRI (!) ,I«1 ,10) /10MREACT  , 10MPHASE  , 

INSCS 

1070 

-10MCONT  , 1 OMSTCHP  ,I0MSTIMC  ,10M  , 

INSCS 

1060 

-10MSPRES  , 1  OH  , 10MRESVS  , 1 OMMATER  / 

INSCS 

1090 

c 

INSCS 

1100 

DATA  (TITLE(S)  ,M«1,  10| /10HK  «10M1  ,iO**E 

,  INSCS 

1110 

-I0M3  , 1  OH*  , 1  OHM  , 1 0M5  , 

INSCS 

11?0 

-10MA  , 1 0H7  , 1  OHS  / 

INSCS 

1130 

c 

INSCS 

11*0 

DATA  CAE/3HCAE/,0E/?(-.'0E/,N0/?MN0/, SSE/3HSSF /, VES/3HYCS/ 

INSCS 

1150 

c 

INSCS 

1160 

NAMELIST/NLSCS/NBANK,NCJECT,RTIME,MPP3 

INSCS 

1170 

c 

INSCS 

1160 

c 

INSCS 

1190 

APPENDIX  f  CHEMICAL  LASER  ANALYSIS  PR08RAM  (CLAP) 

SUBROUTINE  INSCS  OVERLAY  SCS  PA8E  E-14 


c**» 

1?00 

C* 

•INSCS 

1?10 

c* 

SET  OEEAULT 

VALUES  *INSCS 

1??0 

c« 

•INSCS 

1  ?30 

I  ?A0 

c 

INSCS 

IE  SO 

c 

INSCS 

1?69 

lE(SFTSCS.EO.NO)  GO  TO  10? 

INSCS 

1?  TO 

EREACT-ioHlRENA/MMH 

INSCS 

1  ?A  0 

M?)»l 

INSCS 

1  ?90 

M3)»l 

INSCS 

!  300 

M4)«l 

INSCS 

1310 

K(5>«1 

INSCS 

13?0 

K(6)»l 

INSCS 

1330 

K(T)«1 

INSCS 

134b 

K(«)»l 

INSCS 

1350 

X (91 *1 

INSCS 

1360 

K  ( 1 0 1  ■  J 

INSCS 

1370 

NBANKa) 

INSCS 

1380 

NEJFCT-i 

INSCS 

1390 

RTIME»60.0 

INSCS 

1400 

SCS5?»YES 

INSCS 

1*10 

00  101  1-1.10 

INSCS 

14?0 

inj 

STRODE ( I, J )»DESCRI (I) 

INSCS 

1430 

WPP3-1. 89645 

INSCS 

1440 

SETSCSsNO 

INSCS 

1450 

c 

INSCS 

1460 

c 

INSCS 

14T0 

c*** 

1480 

c* 

•INSCS 

1490 

c* 

CONTROL  STATEMENTS  *INSCS 

1500 

c* 

•INSCS 

1510 

c*** 

15?0 

c 

INSCS 

1530 

c 

INSCS 

1540 

10? 

WRITE (6, 31 0) 

INSCS 

1550 

READ (5.J04 ) SCSS 1 

INSCS 

1560 

IE (SCSSl.ro. NO)  RETURN 

INSCS 

15T0 

WRITE (6.31 1 ) 

INSCS 

1580 

READ (5,30* ) SCSS2 

INSCS 

1590 

IE (SCSS?. EO. NO)  RETURN 

INSCS 

1600 

WRITE (A, 31?' 

INSCS 

1610 

READ (5.30* ) SCSS 3 

INSCS 

1 6?0 

IF (SCSS3.EQ.N0)  GC  TO  1C3 

INSCS 

1630 

REWIND  A 

INSCS 

1640 

READ (4) ERE ACT, (K(I) . I«?, 10) ,NBANK 

,NEJECT,RTIME,SCSS?»WPP3  INSCS 

1650 

RETURN 

INSCS 

1660 

103 

WRITE (6,313) 

INSCS 

I6T0 

IF (EJECT. NE. CAE. AND. EJECT. NE.SSE) 

WRITE(6,314) NB ANK ,RT IME , WPP 3  INSCS 

liiSO 

lE(EJECT.FQ.CAF.OR.EJECT.EQ.SSE) 

WRITE (6,315)NBANK,NEJECT,RT1NE,  INSCS 

1690 

-WPP3 

INSCS 

1700 

READ (5.NLSCS ) 

INSCS 

1710 

WRITE (6,316! 

INSCS 

1  T?0 

READ(5,304)SCSS4 

INSCS 

1730 

IFcSCSS4.FQ.N0)  00  TO  11A 

INSCS 

1740 

178 
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APPFNOIX  E  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLA?) 

SUBROUTINE  INSCS  OVERLAY  SCS  RASE  E-13 


c 

INSCS 

1750 

c 

JNSCS 

1760 

rm*9* 

•••INSCS 

1770 

C • 

•INSCS 

1780 

c» 

LASER  PRIMARY  4  SECONDARY  REACTANT  STORAGE  MODE  SELECTION 

•INSCS 

1790 

C* 

•INSCS 

1800 

C*«mm 

‘••INSCS 

1810 

c 

INSCS 

1820 

c 

INSCS 

1630 

WRITE (6*317) 

INSCS 

18*0 

lEfOEORME.EQ.DE)  GO  TO  10S 

INSCS 

1850 

IF(N1.EO.O.ANO.N2.EQ.2>  GO  TO  10* 

INSCS 

I860 

GO  TO  119 

INSCS 

1670 

10* 

WRITE ( 6«320 1  ST 02 ( 1  • 1 1 

INSCS 

1680 

WRITE (6.308) (TITLE  <L) .L«l .5) . (STRODE ( I .1) , (STD? t I.L) »L«1 .*> . 

INSCS 

1890 

-1-2,10) 

INSCS 

1900 

GO  TO  108 

INSCS 

1910 

10* 

IE(N1 .EO.?.AND.N?.EO.*)  GO  TO  106 

INSCS 

1920 

IF(N1.|O.O.ANO.N?.EQ.2)  GO  TO  10T 

INSCS 

1930 

GO  TO  120 

INSCS 

19*0 

106 

WRITE (6.3?0) STC2M* (1,1) 

INSCS 

1950 

WRITE (6.30T) (TITLE (L) .L«1.3I . (STRODE ( I » 1 ) . (SYC2H* ( I .L > .L-l .2)  • 

INSCS 

1960 

-1-2.101 

INSCS 

1970 

GO  TO  108 

INSCS 

1980 

107 

WRITE (6»3?0)STH2(1»1) 

INSCS 

19V0 

WRITE (6.308) (TITLE ( L  > .L*l .5) • (STRODE ( I . 1 ) . (STH2«I.L) tL-1.*) . 

INSCS 

2000 

-1-2.10) 

INSCS 

2010 

toe 

READ(5,303)K(2) 

INSCS 

2020 

IE(N3.E0.1.AND.N4.E0.3)  GO  TO  109 

INSCS 

2030 

IF(N3.FO.O.AND.Na.EO.?)  GO  TO  110 

INSCS 

20*0 

GO  TO  1?1 

INSCS 

2030 

109 

WRITE (6.320)STNF3(1.1) 

INSCS 

2060 

WRITE  (6,308) (TITLE(L)»L-1»5) « (STRODE (I.l), (STNF3(I.L>»L-1»*)» 

INSCS 

2070 

-1-2.10) 

INSCS 

2080 

GO  TO  ill 

INSCS 

2090 

n  n 

WRITE (6,320)STF2(1  ,  1 ) 

INSCS 

2100 

WRITE  (6.308) ( TITLE (L > .L-l .5) . (STRODE ( I . 1 ) . (STF2(I,L) »L-1.*>, 

INSCS 

2110 

-1-2.10) 

INSCS 

2120 

ill 

READCS.303)K(S) 

INSCS 

2130 

IF(K(5),LT . 3. AND. WF SR 2, t 0.0.0)  GO  TO  112 

INSCS 

21*0 

IF(WFPR2.EO.O.O.AND.WFSR2.EO.O.O)  GO  TO  11? 

INSCS 

2130 

WRITE (6*320) ST ME ( 1 , 1 1 

INSCS 

2160 

WRITE (6,308) (TITLE (L) ,L«! .5) * (STRODE ( I » l ) , (5TME (I.L) *L-l *♦)  , 

INSCS 

2170 

-1-2. 10) 

INSCS 

2180 

READ  (--  i303)K  (3) 

INSCS 

2190 

ll? 

IF (WFPN3.EQ. 0. 0 . AN0.WFSR3.E0 ,0.01  60  TO  113 

INSCS 

2200 

WRITCI6, 3201 STN2 (1*1) 

INSCS 

2210 

WRITE (6.308) (TITLE (L ), L-1.5) . (STRODE ( I . 1 ) , (STN2II.L’, »L-l**l • 

INSCS 

2220 

•1-2*10) 

INSCS 

2230 

WRITE (6.309) (TITLE (L) .L-6,10) » (STRODE ( I . 1 ) . (STN2(I.L)»L-5*8) * 

INSCS 

22*0 

-1-2* 10) 

INSCS 

2230 

READ (5.303)8 (*) 

INSCS 

2260 

113 

IF(DFORNF.EO.OF)  JO  TO  u* 

INSCS 

2270 

WRITE (6. 320) STH2 (1*1) 

INSCS 

2280 

WRITE (6.308) (TITLE (L ) .L-l .5) . (STROOE (I.l), (STN2 ( I  *L ) *L-1 . *> . 

INSCS 

2290 
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APPfNOI*  E 
subroutine  inscs 


chemical  laser  analysis  program  <clapi 

OVERLAY  SCS 


-1-2.101 

60  TO  11 5 

II*  wR JTE(6«320I STO?( 1 » 1 1 

WRITE <6,3081  (TITLE <L> ,L»1. 51 . (STMODE ( I . 1 1 , ( STD2 ( I ,L 1 ,L-1 ,41 , 

-t-2.101 

US  RE  AO  (5, 3031 A  (6) 

C 

C 

. . * . * . . 

c* 

c*  aero-winoow  fluid  storage  mode  selection 

c* 

€••••*••«•*••«*•••**•••••••*•••••••••***•••*•**••*•**•••••****••*•* 

c 

c 

kRITE (6.318) 

WRITE  (6, 3201  STAR  < 1 , 1 1 

WRITE <6. 3081 (TITLE  (LI ,L-1 .SI ,< STRODE < 1 . 1 1 , <STAW< I, LI »L»1 ,41 , 

-1-2.10) 

REAO(5, 303)5(7) 


C 

C 

C*« 

c* 

c» 

c* 

c»« 

c 

c 


COOL  I NO  SYSTEM  FLUID  STORAGE  MODE  SELECTION 


WRITE (6,319! 

WRITE  <6»3?0lSTC5(l,ll 
WRITE  <6, 301 1 

WRITE <6.3081  (TITLE (Ll.L-1.5) , (STMOOE ( I , 1 1 , (STCS (I ,L I »L*1 ,4) , 
-1-2.101 
WRITE (6,3021 

WRITE (6.3061  (TITLE :L1 ,L-6. 71 , (STMOOE ( I  . 1 1  ,STCS ( I ,5l  , 1-2, 101 
REA0(5, 303)5(8) 

C 
C 

C* 

c» 
c* 

c 

c 

IF(EJECT,NE.CAE.AND,FJECT.NE.SSEI  go  TO  118 
WRITE (6,321 1 
READ (5, 3 051  ERE ACT 

IF(EREACT,EO.10HN2M*  l  GO  TO  116 

IF(EREACT.EO,IOMIRFNA/MMH  1  GO  TO  1 1 T 
GO  TC  122 

116  WRITE (6,3201 STN2H4 (1,11 

WRITE (6.3081 (TITLE <L > «L-i. 5>, (STRODE < I. l!,ISTN2M4<!, LI. L-l ,41, 

-1-2.101 


EJECTOR  PRIMARY  REACTANT  STORAGE  MODE  SELECTION 


PAGE 

e-i6 

INSCS 

2300 

INSCS 

2310 

INSCS 

2320 

INSCS 

2330 

INSCS 

2340 

INSCS 

2350 

INSCS 

2360 

INSCS 

2370 

‘••INSCS 

2380 

•INSCS 

2390 

•INSCS 

2*00 

•INSCS 

2*10 

‘••INSCS 

2*20 

INSCS 

2*30 

INSCS 

2*40 

INSCS 

2450 

INSCS 

2460 

INSCS 

2470 

INSCS 

2*80 

INSCS 

2490 

INSCS 

2500 

INSCS 

2510 

*«• INSCS 

2520 

•  INSCS 

2530 

•INSCS 

25*0 

•  INSCS 

2550 

•••INSCS 

2560 

INSCS 

2570 

INSCS 

2580 

INSCS 

2590 

INSCS 

2600 

INSCS 

2610 

INSCS 

2620 

INSCS 

2630 

INSCS 

2640 

INSCS 

2650 

INSCS 

2660 

INSCS 

2670 

INSCS 

2680 

•••INSCS 

2690 

•INSCS 

2700 

•INSCS 

2710 

•INSCS 

2720 

•••INSCS 

2730 

INSCS 

27*0 

INSCS 

2750 

INSCS 

2760 

INSCS 

2770 

INSCS 

2780 

INSCS 

2790 

INSCS 

2800 

INSCS 

2810 

INSCS 

2820 

INSCS 

2830 

INSCS 

2840 
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APPENDIX  r  CHEMICAL  LASFR  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  INSCS  OVERLAY  SCS 

PAGE 

E-IT 

RFAD(S.303)K(9) 

INSCS 

2850 

RETURN 

INSCS 

28*0 

117 

WRITE(6.3?0) STMMM (1.1) 

INSCS 

2870 

WRITE (6, 300) (TITLE(L).L»1.S>, (STRODE (I. 1), (STMMM (l,L).L»l.*>.  INSCS 

2880 

-1*2.10) 

INSCS 

2890 

READ (3. 303>K (9) 

INSCS 

2900 

WRITE  (0.320)  STIRFNAU.l) 

INSCS 

2910 

WRITE  (0.300)  (TITLE  (L)  .L«l  .5)  .  (STMODF  ( I  .  1 ) ,  (STIRFM(l 

•LI.LPl.41t  INSCS 

2920 

•!■?»  10) 

INSCS 

2930 

READ (3,303)K ( 1  0) 

INSCS 

29*0 

1  IP 

REWIND  4 

INSCS 

£950 

WRITE l*)EREACT. <K ( I > ,1.2, 1 0) .NBANK ,NE JECT.RT IME.SCSS2. WPP3  INSCS 

29*0 

RETURN 

INSCS 

2970 

C 

INSCS 

2980 

c 

INSCS 

2990 

C««* 

3000 

c* 

•INSCS 

3010 

c« 

FAILURE  INDICATORS 

•INSCS 

3020 

c« 

•INSCS 

3030 

c ••• 

30*0 

c 

INSCS 

3050 

c 

INSCS 

3060 

119 

WRITER. ?01)N1,N2 

INSCS 

3070 

00  TO  1 23 

INSCS 

3080 

)20 

WRITE(0.?0?)N1.N? 

TNSCS 

3090 

80  TO  123 

INSCS 

3100 

121 

WRITE (O.P03)N3.N4 

INSCS 

3110 

60  TO  123 

INSCS 

3120 

1?? 

WRITE (6.20*)EREACT 

INSCS 

3130 

123 

fail-vfs 

INSCS 

31*0 

C 

INSCS 

3150 

C 

INSCS 

3160 

3170 

c» 

•IN'.'lCS 

3180 

c* 

FORMAT  STATEMENTS 

•INSCS 

3190 

c 

•INSCS 

3200 

c*« 

3210 

c 

INSCS 

3220 

c 

INSCS 

3230 

201 

FORMAT (*1*.T2**N0  TANK  VOLUME/MASS  SUBROUTINE  EXITS 

FOR  C».li.*0«, INSCS 

32*0 

-U./.T2.PRR08RAM  TERMINATED  IN  SUBROUTINE  INSCS*) 

INSCS 

3250 

to? 

FORMAT («l*.T2.*NO  TANK  VOLUME/MASS  SUBROUTINE  EXITS 

FOR  C*. 11. *H«, INSCS 

3260 

-I1./.T2.PPR06RAM  TERMINATED  IN  SUBROUTINE  INSCS*) 

INSCS 

3270 

DOS 

FORMAT (•l*.T2.*NO  TANK  VOLUME/MASS  SUBROUTINE  EXITS 

FOR  N*. 11. «Fp. INSCS 

3280 

-U./.T2.PRR0GRAM  TERMINATED  IN  SUBROUTINE  INSCS*) 

INSCS 

3290 

20* 

F0RMA7 (*l*oT2»PN0  TANK  VOLUME/MASS  SUBROUTINE  EXITS 

FOR  P.A10,/.  I NSC? 

3300 

>T2.*PR08RAM  TERMINATED  IN  SUBROUTINE  INSCS*) 

INSCS 

3310 

30! 

FORMAT (•«*) 

INSCS 

3320 

302 

FORMAT («R*) 

INSCS 

3330 

303 

FORMAT  (ID 

INSCS 

33*0 

30* 

FORMAT (A3) 

INSCS 

3350 

305 

FORMAT ( A 1 0 ) 

INSCS 

3360 

30* 

FORMAT (P1P.9IT2.2A 12./) .T2.2A12) 

INSCS 

3370 

307 

FORMAT**  p.9(T2.3A12«/).T2.3A12> 

INSCS 

3380 

30* 

FORMAT)*  P.9IT2.3A12./) .T2.SA12) 

INSCS 

3390 
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APPENDIX  r 
SUBROUTINE  INSCS 


CHEMICAL  LASER  ANALYSIS  RRORRAM  (CLAR) 
OVERLAY  $CS 


RAflE  E-IR 


30* 

310 

31) 

31? 

313 

314 

31 5 

31* 
31 T 

3JR 

310 

3E0 

3R1 


rORMAT*41*,4<T?,SAl?./| ,T?,SAI*)  INSCS 

EORNAT (•l*«T?**ALi  NEW  SYSTEM  CALCULATION  INPUTS  REQUIRED?*,/)  INSCS 
EORNAT |*l*#Tl»*ARE  SYSTEM  CALCULATIONS  DESIREO?*#/)  INSCS 

FORMAT «*0*.T2,*SH0ULP  INPUT  DATA  RE  READ  FROM  TAPE*?*,/)  INSCS 

FORMAT **1*.T?#*INPUT  PAT  A  FOR  THE  SYSTEM  CALCULATION  SECTION  BY  NA1NSCS 
-MELIST.*,/,TE. ‘CURRENT  VALUES  ARE**)  INSCS 

FORMAT**  •  #  T* #*SNLSC5*#  T?6«*NBANF  *•» I13.TS0.*BTlME  **tF13.6«  INSCS 

-/•T*,*WRR3  *•*£ 13,6#*  S*,/l  INSCS 

FORMAT**  *»T2#*SNLSCS*,T?A#*NSANK  ■** I 13.T50.*NFJFCT  a*,I13#/«  INSCS 
-T?,*RTIMf  **«E 1 3,6#  T?6# *VPP3  ■*,£13.6,*  *•#/>  INSCS 

FORMAT <*1*,TJ,*AR£  NEW  RFACTANT  STORAOE  MOPES  REQUIRED?*,/)  INSCS 

FORMAT <•!*, //////. T?,*LASr«  PRIMARY  i  SECONDARY  REACTANT  STORAGE  I INSCS 
-NPUT  SECTION*)  INSCS 

FORMAT *•!*, //////, T?,*AERO-WINOOM  FLUIO  STORAOE  INPUT  SECTION*)  INSCS 
FORMAT <*1*, //////# T?,*CO0LIN6  SYSTEM  FLUIO  STORAGE  INPUT  SECTION*) INSCS 
FORMAT (*)*,T?'A*.*  MAY  BE  STORFO  ANY  OF  THF  FOLLOWING  WAYS,  INPUTINSCS 
-  *#•)  INSCS 

FORMAT **1*,T?.*INPUT  THE  EJECTOR  PRIMARY  RFACTANT  FROM  THE  FOLLOWIINSCS 
-NO  LIST l*«//*T?» *«N?H4"  FOR  A  MONOPROPCLLANT  DRIVER*#/. T?,  INSCS 

-*»IRFNA/MMH"  FOR  A  BIPROPFLLANT  DRIVER*#/)  INSCS 

ENO  INSCS 


3400 

3410 

34*0 

3430 

3440 

34S0 

3460 

34T(i 

34BQ 

34*0 

3500 

3510 

35?0 

3530 

3540 

3550 

35*0 

3370 

I5B0 

33*0 

3600 
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ARGENOIX  r  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 

SUBROUTINE  outscs  overlay  scs  paoe  e-i« 


SUBROUTINE  OUTSCS  OUTSCS  0100 

C  OUTSCS  Olio 

C  OUTSCS  0)20 

(•••••••••••••••'••••••••••••••••••••••••••••••••''•••••••••<>*<,.»»»*t  ••••OUTSCS  0130 

C*  "OUTSCS  nuo 

C»  OUTPUT  SUBROUTINE  I0UTSCS)  "OUTSCS  0150 

C"  "OUTSCS  0100 

C"" """"OUTSCS  01  TO 
c  OUTSCS  OIRO 

C""""""1 *••••••••*••»•*••••*'••••••••••••••••••• •••••••••••••••••••••"•••OUTSCS  0100 

C«  "OUTSCS  0200 

C*  SUBROUTINE  outscs  prints  the  system  calculation  section  RESULTS  ‘OUTSCS  o?l 0 

C*  OE  PROGRAM  clap  IN  si  UNITS  on  TERMINALS  with  A  minimum  or  132  *0‘JTSCS  0220 

C»  CHARACTERS  per  line.  *outscs  0230 

C»  *0UTSCS  0240 

<;••••••••••••••••••••••• . *•***•*****•*•*•**••••**••••••••••• '••••••OUTSCS  0250 

r  OUTSCS  0200 

c  OUTSCS  02T0 

IMPLICIT  REAL(L.M)  OUTSCS  0280 

c  OUTSCS  0200 

real  no  OUTSCS  0300 

c  OUTSCS  0310 

COMMON/PRSS/EJECT  OUTSCS  0320 

C  OUTSCS  0330 

COMMON/SCS2/FREACT  , NR ANK , NE  JEC  T .RTIME • WPP3  OUTSCS  0340 

C  OUTSCS  0350 

COMMON /SCS 3/MRXOF  V.LR2DEV.LL0S. LRRS.MAW .NRASF . MCA V  « MCB .MCS.MDS*  OUTSCS  0380 

-MEjFCT.MELINE.MERHEtt.MERT.MINJ.MLONOM.MLOS.MLLlNE.MLRREO.MLRT,  OUTSCS  03T0 

-MMlSC.MOPT.MPRKDM.MPPS,MSuB0.MSUP0*MT0TAL»VAU.VBX0EVtVCAV, VCOMB*  OUTSCS  0380 

-VCS.VEjrCT.VERT.VLOHDN.VLOS.VLRT.VOPT.VPRMDN.VPRS.VSURO.VSUPO,  OUTSCS  0390 

-VSVSTM.vTOTAL.WHASE.WPXDEV.XLP  OUTSCS  0400 

c  OUTSCS  0410 

rOMMON/SCSS/STMOOEHOiIO)  OUTSCS  0420 

c  OUTSCS  0430 

DATA  CAE/3MCAE/,NO/?HN>’  •  JSE/3HSSC/  OUTSCS  OAAO 

C  OUTSCS  0450 

C  OUTSCS  0460 

j... ,..••••••••, ••••0UTSCS  C4T0 

<*•  •OUTSCS  0480 

C*  OUTPUT  INITIAL  DATA  "OUTSCS  0490 

C*  • OUTSCS  0500 

(^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••0UTSCS  0„0 

c  OUTSCS  0520 

c  OUTSCS  0530 

WRITE (20.201 >  OUTSCS  0540 

IF (EJECT. NE. CAE. ANO. EJECT. NE.SSE)  WRITE (20.202IN8ANR.RTIME tWPP3  OUTSCS  05S0 

l*(EJECT.EO. CAE, OP. EJECT, EO.SSEl  WRITE (20 t 203) EREACT .NRANK ,NE JECT, OUTSCS  0560 

-RTIME*WPP3  OUTSCS  05T0 

WRITE (?0» 204) « (STMODE ( I ,J) «J«1.6).I»1.10), (STMOOE ( I , 1 ) •  OUTSCS  0500 

- (STNOOE  f  X • J  > » J»T ,10)»I»1.10)  OUTSCS  0590 

C  OUTSCS  0600 

C  OUTSCS  0610 

(^••••••••••••••••••••••"••••••••••••••••••••••••••••••••••••••••••••••»ouTSCS  0610 

c*  • OUTSCS  0630 

C*  OUTPUT  RESULTANT  DATA  *OUTSCS  0640 


183 


APPENDIX  F 
subroutine  OUTSCS 


CHEm!CAL  LASFR  ANALYSIS  PROBRAN  tCLAP) 
overlay  scs 


PA8E  E-EO 


C* 

C*« 

c 

c 


MRITE  t?0,E05) XLP 

NRtTE tEO,E06>MlNJ,MC8.MaASe,VCONB,MCAV,¥CAV,NAN.VAM,MCS,VCS»MOPT, 
.VOFT,N0S,MLRRf8,MLLINF,NLOHr>*uVLf>NOV.MLRT,VLRT,ML0S.VLDS 
IF (EJECT, £0, NO)  80  TO  10* 

1FIEJCCT.E0.CAE)  80  TO  101 
IFiEJCCT.CQ.SSE)  80  TO  JOE 

MRfTE  t JO»EOT)NSUPD* VSUP0,N5U8D» VSU80.MPRS, VPRS 
80  TO  103 

WRITE  tE0»?08)N$UPD,VSUP0,NSUB0« VSU8D, REJECT »VEJECT ,m£RRE8,MCLINE, 
-MPRhDW , VPRHON » NCRT , VERT , MPRS , VPRS 
80  TO  103 

WRITE <£0»E09>RtJCCT,VFJECT,R£RBE8,MELlN£,RPRHDV.NCRY.VERT,MPRS, 
-VPRS 

WRITE (?0 • ?1 0 ) NLOS . VLOS ,HPRS , VRRS «NNI SC »NTOTAL * VTOT AL « VSVSTN* VBASE 
-LLDS»CPRS.lBXOCV,MBXOEV.M8XDrvtVBXDeV 
RETURN 

WRITE <E0,EinMLDS,VL0S.MRISC.NT0T4L.VT0TAL.VSVSTN,MRASE,LLD5, 
-LBXOCV.nBXDCV.HBXOCV.VBXOEV 


101 

10E 

103 

104 
C 

c 

C**« 

c* 

c* 

c* 

c**< 

c 

c 

?01 


•OUTSCS 
•OUTSCS 
OUTSCS 
OUTS  S 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
•OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 


rORMAT  STATEMENTS 


FORMAT t*l*,T53, •SYSTEM  CALCULATION  SECTION*, //« TOO «• INITIAL  DATA 
*( 

EOE  FORMAT (•0«,T3E<*NBANF  ••.113,T66«*RTINF  -*,E13.6,*  S»,/. 

-T3E.*WPP3  •••E13.6,*  KS/S») 

?C3  FORMAT (•0*«T32.*EREACT  -*,A13»T63»»NBANN  -•,113,/, 

«T3B,*NEJECT  •••I13«T88«*RT1ME  •>,E13.6,«  S*,/, 

“T3E,*WPP3  •**C 13.6,*  KS/5») 

?0*  FORMAT (•«*,T55,*REACTANT  ST0RA9C  METHOD*,//, 1 0 CT3E»*M1 »/> • 
-10«/, T3f, SA11U 

EOS  FORMAT (•8*.T59,»RCSULTANT  DATA,  >>,//, T55, •SYSTEM  SCALC-UP  FACTOR* 
-//»T3?»«XLP  »«.E13.6«»  XMOL't/S*) 

E«A  FORMAT (*0*,T51 ••LASER  DEVICE  SYS'FM  VOLUMF/NASS*,//. 

-T3E,*MINJ  -••E13.6,*  •0*,/.T3r,»MCB  «*.E13.6,»  **•./» 

■T3E.*NBASF  •••E13.0,*  X8«.T86,«VC0MB  -••E13.6,*  N3«»/» 

•••E13.6,*  F8*,T88,*VC AV 
•*,E13.F»*  K8*.T66»«VA* 

•*,E13.8,*  X8»,T66.*VCS 
•*»E\3.8,»  M8«,T68,*V0PT 


•••E13.8,»  K8»,/,T3E,*MLRRE8 
•*,E13,8^  K6»,/,T*3,  >. 


•••E13.6,*  M3*,/» 
■•*E13.6«*  N3*?/» 
■*,E13.8,»  N3»,/» 
•*,E13.8,»  N3*,/* 


-T3E,*NCAV 
.T3E,*MAW 
-T3E,»MCS 
-T3E,»R0PT 
-T3E.*H0S 
-T3?,«MLI,INE 

•TTT,*. _ •,/,T3E,*MLOHON  ■*.C13.6,*  X8*, 

-T88,*VL0H0N  •••E13.6,*  M3*,/,T3E,*MLRT  -*,£13.6,*  X8*, 

-T84,*VLRT  •*,E13.8,«  N3»,/»T*J,» - - 

•TTT,* _ _ *./,T33,»ML0S  •••E13.A,*  F8», 


■••E13.8,*  «8«,/, 
_ -*• 


••OUTSCS 
•OUTSCS 
•OUTSCS 
•OUTSCS 
••OUTSCS 
OUTSCS 
OUTSCS 
i*OUTSCS 
OUT  S'- S 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
,  OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 
OUTSCS 


0890 

0880 

08TO 

0880 

08*0 

OTOO 

0T10 

OTEO 

OT30 

OHO 

0T50 

OTOO 

OTTO 

otro 

OTOO 

0800 

08)0 

OBEO 

0830 

08*1 

0850 

0860 

08T0 

0880 

08*0 

0900 

0910 

09EO 

0930 

09*0 

0*S8 

0960 

0*T0 

0980 

0990 

1000 

1010 

lOEO 

1030 

10*0 

10S0 

1060 

1OT0 

1080 

1090 

1100 

1110 

11E0 

1130 

11*0 

1150 

1160 

UTO 

1180 

11«0 
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appendix  r 
subroutine  outscs 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 
OVERLAY  SCS 


PAEC  E-21 


-T66,‘VLDS  a‘,E13.6,*  M3*) 

POT  FORMAT (•1*»TAS»#PRCSSURE  RECOVERY  SYSTEM  VOLUME /MASS** //, 
“T3?**MSUP0  *‘»E13.6,*  K8‘ ,  T66 , ‘VSUPD  b*,E13.6,*  M3*,/, 

-T3?,«MSUR0  ,E 1 3.6  « •  KG*.T6$t*VSUBD  a‘,El3.6,*  M3*,/, 

-T*3 , • _ •  ,  T77  ,  • _ _ _ . ,  /  , 

-T3?,«MRRS  «**E13.fc**  K8*,T66.*VPRS  ■••E13.6,*  M3*) 

POP  FORMAT (*1*,T*B. ‘PRESSURE  RECOVERY  SYSTEM  VOLUME/MASS*,//, 
-T3?,*MSUPO  ■••E13.8,*  K8‘,T66**VSUP0  a*,El3.6,*  MJ*,/, 

-T3?,*MSUB0  ■*.F13.8,«  K8*.T66**VSUB0  a**E 1 3*6* •  M3*,/, 

“T32, ‘REJECT  »*.E13.A*‘  KG‘.T66.‘VEJECT  ■‘,E13,6,*  M3*,/, 

”T3?*‘MFRREO  a*,E13.t.*  K6‘,/,T3?,‘MELIMF  ■‘,E13.*,‘  M8‘./. 

-T*3.‘ _ ••  T?T*‘ _ *,/, 

-T3?,‘MPRMOV  ■‘,E13.6,*  K6‘,T66.‘VPRM0V  ■‘.F13.6**  M3*,/, 

-T3?,*MFRT  “.E13.6,*  K8‘.T68t‘VERT  »‘,EI3.6,‘  MS*,/, 

-T* 3 , • _ •  ,  TT7,  • _ •  ,  /  , 

-T3?,*MPRS  *‘.E13.fr,*  K6*,T66.‘VPRS  -‘,E13.6,*  M3*) 

POP  FORMAT (*1*,T*8, ‘PRESSURE  RECOVERY  SYSTEM  VOLUME/MASS*,//. 

-T32, ‘REJECT  *‘,E13.A,*  K8*.T66,*VE JECT  a*,El3.6,*  M3*,/, 
-T3?,*MERRE6  b*,E13.6,*  K8‘,/,T3?,‘MELINE  •‘,E|],a,‘  K0‘,/, 

-T*3,* - *./.T3?,‘MPRHDM  a‘,E 1 3,6,*  KB*,/. 

-T3?,*MFRT  **,E i 3.A,*  K6*,T68,‘VE0T  **,E13.6,*  M3*,/, 

“T* 3 . • _ •  ,  T 77 ,  • _ *,/, 

-T3?,*MPBS  ***E13.6,*  K8‘ «  766  «  *VPRS  **,El3.6,*  M3*) 

P10  FORMAT (•<)•. T53. -SYSTEM  VOLUME/MASS  SUMMARY*,//, 

-T3?,*MLDS  *‘ ,E 1 3,6, •  K8*.T66,*VLDS  ■*,El3.6,*  M3*,/, 

“T3?,*MPRS  •••E 1 3.8, •  K8*.T66.*VPRS  ■••E13.6,*  M3*,/, 

-T3?,*MMJSC  «-*.El3.8.*  KG*./,T*3,‘ _ _ _ *, 

“TIT,*.. - ‘,/,T3J,*MTOTAL  ■*,£  13,6,*  KB*, 

-Tf6,*VT0TAL  **.E13.6.‘  M3* , / , T66.*VSYSTM  b‘,E13.A,‘  M3‘,//, 

-T3?,*VBASf  «F 1 3.6,*  M‘, T66, ‘LLOS  a*,E13.6,*  M‘,/, 

-T3?,*LPRS  -*.El3.6,*  M*,//,T3?,‘LBX0EV  -‘,E13.6.‘  M*. 

-T66.*MBX0EV  *‘,E13.6>*  M* , / , T 32 , *HBXOE V  **.E13.6,*  M*. 
-T66,*VRX0FV  a‘,El3.A,*  M3*) 

?11  FORMAT (*I*,T53, ‘SYSTEM  VOLUME/MASS  SUMMARY*,//, 

-T32,*ML0S  a‘,£l3.A,*  KB* , T66, ‘VLOS  a*,E13.6,*  M3*,/, 

-T32.*MM|SC  •*, El3.fr.*  K8*,/,T*3,‘. _ _ _ *, 

“TT7 • - _ — ‘./,T32,‘MTOTAL  -*,E13.6,‘  KB*, 

-T66,*VTOTAL  ■*«E13.6,*  Mj* , / , T66 , ‘VS YSTM  b‘,E13.6,*  M3*,//, 

-T3?,*VBASE  s‘,E 1 3, A,*  M*,T66.*LLDS  a*,F13.6t*  M*,//, 

-T32,*LBXDEV  *‘,E13.6,*  M*,T66,*MBXDEV  a*,E13.6,*  M*,/, 

-T3?,*HRX0EV  a*,El 3,6,*  N*,T66,*VBX0EV  **«E13.6,*  M3‘) 


OUTStS  1208 
OUTSC'i  1218 
OUTSCli  1228 
OUTSC'  1230 
OUTSCS  12*0 
OUTSCS  1250 
OUTSCS  1280 
OUTSCS  12T0 
OUTSCS  1200 
OUTSCS  1290 
OUTSCS  1300 
OUTSCS  1310 
OUTSCS  1320 
OUTSCS  1330 
OUTSCS  13*0 
OUTSCS  1330 
OUTSCS  1380 
OUTSCS  13T0 
OUTSCS  1 380 
OUTSCS  1390 
OUTSCS  1*00 
OUTSCS  1*10 
OUTSCS  1*20 
OUTSCS  1*30 
OUTSCS  1**0 
OUTSCS  1*50 
OUTSCS  1*80 
OUTSCS  1*70 
OUTSCS  1*00 
OUTSCS  1*90 
OUTSCS  1500 
OUTSCS  1510 
OUTSCS  1520 
OUTSCS  1530 
OUTSCS  15*,) 
OUTSCS  1550 
OUTSCS  1580 
OUTSCS  1570 
OUTSCS  1580 
OUTSCS  1590 
OUTSCS  1800 
OUTSCS  1610 
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APPENDIX  f  CHEMICAL  LASEP  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  VMAV  OVERLAY 

SCS 

PA8E 

E-22 

SUBROUT tNE  VN AM| J . MN? , RT  t  ME . MT  ANK , V  T  ANK ) 

VMAV 

0100 

c 

VMAV 

0110 

c 

VMAV 

0120 

C«* 

•••VMAV 

0130 

c» 

•VMAH 

0140 

L« 

AERO-VINOOV  TANK  VOLUME/MASS 

SUBROUTINE  (VMAV) 

•VMAV 

0150 

c* 

•VMAH 

0160 

c*» 

•••VMAV 

0170 

c 

VMAH 

0180 

c»* 

•••VMAH 

0190 

c* 

•VMAH 

0200 

c« 

SUBROUTINE  VMAV  CALCULATES  THE  N?  TANK  VOLUME/HASS 

:  FOR  THE 

•VMAH 

0210 

c« 

AERO-HINDOV. 

•VMAH 

0220 

c« 

•VMAH 

0230 

c« 

N2  r OR  THE  AERO-HlNDOH  MAY  BE  STORED  ANY  OP  POUR  MAYS) 

•VMAH 

0240 

c« 

•VMAH 

02S0 

c» 

K  i  i 

3 

A 

•VMAH 

0260 

c« 

PHASE  9AS  BAS 

LIO 

LIO 

•VMAH 

0270 

c* 

CONT  SPM  CYL 

SPH 

SPM 

•VMAV 

0280 

c« 

STPNP  300.0  K  300,0  K 

TT.S  K 

?7.S  K 

•VMAV 

0240 

c* 

ST I HE  INFINITE  INFINITE 

8.6E.0S  S 

1 ,6E*0T  S 

•VMAH 

0300 

c* 

(10  DAY) 

1180  DAY) 

•VMAH 

0310 

c* 

SPRFS  A , IE* OT  PA  4.1E.07  PA 

1.SE.06  PA 

1.5E.06  PA 

•VMAV 

0320 

c» 

(6000  PSI)  (6000  PSI) 

(220  PSI) 

(220  PSD 

•VMAH 

0330 

c« 

RPSVS  BLD  BLO 

HPS 

HPS 

•VMAV 

0340 

c* 

NATER  TI  TI 

ss 

ss 

•VMAV 

0350 

c» 

•VM»H 

0360 

c* 

INPUT  VARIABLESl 

•VMAV 

0370 

c« 

•  VMAH 

03B0 

c* 

J  »  STORASE  MODE  CONTROL  VARIABLE 

•VMAV 

0390 

c* 

K  •  STORAGE  NODE  CONTROL  ARRAY 

•VMAV 

0400 

c* 

MN2  •  TOTAL  OELIVEREO  HASS  OP  N2  IK81 

•VMAV 

0410 

c» 

RTIHr  ■  RUN  TINE  IS) 

•VMAV 

0420 

c« 

•VNAN 

0430 

c* 

OUTPUT  VARIABLES! 

•VMAV 

0440 

c* 

•VMAV 

0450 

c* 

MTANK  >  TANK  HASS  (KOI 

•  VMAH 

0460 

c* 

STAN  ■  STORAOE  HOOE  DESCRIPTOR  DATA 

ARRAY 

•VMAH 

0470 

c* 

STRODE  ■  STORAOE  HOOE  DESCRIPTOR  ARRAY 

•VMAV 

0480 

c* 

VTANK  ■  TANK  VOLUME  IM3) 
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c* 
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c*» 
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c 
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c 
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c 
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c 
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c 
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• 
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• 
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PA, 10H4. 1E.0T  P A , 1  OH  1 ,  SE ♦ 06  PA 
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/ 
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C 
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C 
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•  •• 

•••VMAR 

0790 

c 
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c 
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10 
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c 
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c 
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c» 
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c» 
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c* 
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C«M 

>••• 

•••VMAR 
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c 
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c 
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c 
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c 
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c*»* 
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c* 
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0970 

c» 
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c* 
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•••VMAR 
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c 
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c 

“MAR 
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- 
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VMAR 
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- 
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VMAR 
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VMAR 
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- 

♦l.*55*2E-02*NN2/RTIME 

VMAR 

1070 
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VMAR 
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MTANKaMT ANK*3. 90631 *MN? 

VMAR 

1090 

♦ 0.629548*MN2»» ( 2,0/3, 0 ) 

VMAR 

1190 

- 

♦30 . 8400»MN2/RT I HE 

VMAR 

1110 

VTANK«VTANKO.32512E-03*XN2 

VMAR 

11?0 

♦1.45542E-02PAN2/RTINC 

VMAR 
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1140 

c 

VMAR 
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c 

VMAR 

J 160 

C»*« 

>••• 
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'•••VMAR 
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e« 
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10*  MVT»1.??B61»MN2 

-  ♦0.882613*MN2**(2. 0/3.0) 

-  ♦0.I27222*MN2*»(1.0/3.fi) 

-  ♦5016600*MN2/PTIME 
MMT«1.19S93«MN2 

-  *1.13820*MN2«*(2. 0/3.0) 

-  *0.J2T222*MN?»*«1. 0/3.0) 

-  ♦50.6600»MN2/RTIME 

MT  ANK«MT  ANK *  AM AX  1 (MVT.MMT) 
VTANK«VT*NK»J.*9639E-03*MN2 

-  «9.93326E-fl**MN2*<  <2.0/3. 0) 

-  *2.20679E-0A#MN2*# ( 1 .0/3. 0 ) 

-  *3.169*8E-02«MN2/RTIME 
RETURN 

105  MVT«l.?0968»MN2 

-  <1.9968**MN2**(2. 0/3.0) 

-  ♦2.07277«MN2**(1. 0/3.0) 

-  450f6600*MN2/RTIME 
MMT»1.I7700«MN2 

-  «2.2S223*MN2**(2. 0/3.0) 
♦2.07277*HN2«*(1.0/3.0) 

-  «30.6600*MN2/RTINE 
MTANK-MTANK*IMAX1 (MVT.MMT) 
VTANK-VTANK*’ ,*9639E-03*MN2 

-  ♦*.97663E-03*MN2**(2. 0/3.0) 
♦5.31700E-03*MN2a# (1. 0/3.0) 

-  ♦3.169*8E-0?«MN2/PTIME 
END 


•  VMAW  1200 

•VMAW  121 C 
VMAW  1220 
VMAW  1230 
VMAW  12*0 
VMAW  12S0 
VMAW  1260 
V*AW  1270 
VMAW  1280 
VMAW  1290 
VMAW  1300 
VMAW  1310 
VMAW  1320 
VMAW  1330 
VMAW  13*0 
VMAW  1350 
VMAW  1360 
VMAW  1370 
VMAW  1360 
VMAW  1390 
VMAW  1*00 
VMAW  1*10 
VMAW  1*20 
VMAW  1*30 
VMAW  1**0 
VMAW  1*30 
VMAW  1*60 
VMAW  1*70 
VMAW  1*80 
VMAW  1*90 
VMAW  1300 
VMAW  1510 
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OE 
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c* 
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c* 
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c« 
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c» 

RESTS 

REP 
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c* 
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c* 
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c* 
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c« 
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c« 
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c« 
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c« 
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c* 
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C« 
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09T0 

c* 
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c»« 
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c 
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C 

VMCS 
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C0MM0N/SCS5/STM00E (10,10) 

VMCS 

0600 

C 

VMCS 

06TO 

COMMON/SCS7/STCSU0.6) 

VMCS 
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C 

VMCS 

0600 

DATA  (  ( STCS ( 1 , A ) ,K«1 , A ) ,  I  ■  1 

.10)/ 

VMCS 

OTOO 
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• 

VMCS 
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• 
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• 
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-10M300.0  K  glOHTOO.O  K 
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t 
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. 10NINP INITE 

.10M1NEIMITE 

• 
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• 
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.10H 

«  1  OM 

t 

VMCS 
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• 
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OTOO 
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/ 
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DATA  <?TCS<!.3> .1*1 .10) / 
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C 

VMCS 
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C 
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0030 
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c« 

•VMCS 
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c» 
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ARRAY 
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c* 
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OOTO 

C»«« 
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c 

VMCS 
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c 

VMCS 

1000 
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VMCS 
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VMCS 
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c 

VMCS 
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r 

VMCS 
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c* 
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c« 
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c* 
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1000 

c 
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c 

VMCS 
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c 
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c 
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c« 
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c* 
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c* 
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1180 
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PA61 

e-27 

C 

VNCS 

)200 

C 

VNCS 

1210 

10? 

MVT ■ 1  »  J1 266*NN?0 

VNCS 

1220 
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VNCS 

1230 

NNY»1,24S6?»MH?0 

VNCS 
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1300 
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VNCS 
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1320 
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C 
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c 
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c* 
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c* 
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c* 
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RETURN 
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c 
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c 
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c»»« 
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c» 
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c* 
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c» 
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c«* 
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c 
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c 
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c 

VMCtHA 

OSAO 

COMMON/SCSA/K(10) 

COMMON/SCSS/STMOOE  (IP.  JO) 

COMMON /» CSS /ST CfHA ( 10 .?) 

OAT*  ( (STCtMA(l.K) .K-l.f) ,I»1. JO)/ 
-10HCIN4  . lOMCfMA  , 

•  1  OHO AS  . J OHO AS  . 

-10MSPM  .10HCYL  . 


VMCfNA  OSSO 
VMCtHA  0900 
VMCtHA  OSTO 
VMCfHA  0400 
VMCfHA  dS»C 
VMCfHA  0400 
VMCfHA  0410 
VMCtHA  0410 
VMCtHA  0430 
VMCtHA  04A0 


APPFNDIX  F  CHEMICAL  IASCA  ANALYSIS  PR(J6*AM  »ClaP> 


SUBROUTINE  VMC2H4  OVCMLAV  SCS 

pas: 

:-3« 

-10H300.0  K  • 10H300.0  K  . 

VMC?H* 

06*0 

-10HINFINIT?  tlOHlWFJNITf  . 

VNC2H4 

0*60 

-10H  .10H  , 

vmc?h* 

0670 

-10M4.12»0T  PA* 10H  •> . If  *07  FA. 

VMCfHA 

0**0 

- 1  OH  (6000  P5 1 >  »  1  OH  (60  00  PSD, 

VNC2H4 

0**0 

-10M8LO  . 10HRLD  . 

vmc?ha 

0700 

-10HTI  .10MTI  / 

VMC2M4 

0710 

c 

VNC2H4 

0720 

c 

VMC2H4 

0730 

c*»* 

0740 

c* 

•VNC2H4 

0730 

c« 

SET  STOftAflC  MODE  DESCRIPTOR  ARRAY 

•VMC?H4 

07*0 

c* 

•VMC2H4 

0770 

c*«« 

07S0 

c 

VMCJH4 

07*0 

c 

VMC?H4 

9*00 

DO  101  T-1.10 

VMC2M4 

0*10 

lei 

STMOOE  ( I  .  U)  aSTC?H*  ( I  ,K  (.1)  ) 

VMC?H4 

0*20 

c 

VNC2M4 

0*30 

c 

VMC2** 

0**0 

c»«* 

0*30 

c» 

•VNC2H4 

0*«0 

c» 

CALCULATE  TANK  VOLUMC/MASS 

•  V'«C?M4 

0*70 

c« 

•VMCJH4 

00*0 

c^^* 

0**0 

c 

VNCPM4 

0900 

c 

VMC?H4 

0*10 

AF«KO/M.0-<3.0?16?F-OA«P0)»*(l.O/'..?3®:0>  ) 

VMC?H4 

0*20 

60  TO  (10?.103).K(J) 

VMC?H4 

0*30 

10? 

MT  ANK«MT  ANK  »2 , 4673**AF •MC?H* 

VMC?N4 

0*4C 

-  »0. Jl* 1 65* <Af«MC?H4 »••(?. 0/3.0) 

VKC2N4 

0*30 

VTANK»VTANK»2.?*304E-03*AP«MC?W4 

VMC2H4 

0**0 

RETURN 

VMC2H4 

0*70 

103 

MTANK»MTANK.?.89109«AF»MC?H* 

VMC?H4 

0*80 

-  ♦O.A84??6«(AF*MC?HA )••(?. 0/3.0) 

VMC2M4 

09*0 

VTFNK«VVANK.2.24304E-03*AF*MC2H4 

WHC?H4 

1000 

END 

VMC2H4 

1010 
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i 

t 


uuo 


APPF.Oi*  f 
subroutine  w,i.' 


pabe  c-si 


l Hf  MIC  »l  LASfP  ANALYSIS  PROGRAM  (CLAP) 
OYCRuAY  sCS 


•-.UBPOUTINF  vmd? ( j. , »  n?, mu  -tank. v yank > 

c 

c 

»•••••••••••••••• »••••••••••»••••••••••••• ••••••••••"•••••' 

c» 

C»  0?  TANK  VOLUME  /MASS  SUPRCUDNF  (VND?) 

c* 

. . ••♦• . •••••••*••••••••••••«•  *•••••••••••••*•• 

c 

c. ......... . . . .  . . . . 

c* 

c«  SUBROUTINE  VMO?  CALCULATES  THE  TANK  VOLUNE/MASS  FOR  THE  STORAGE 
C«  OF  0?. 

C* 

C«  0?  MAY  BC  STORED  ANY  OF  FOUR  KAYSl 

c« 


c» 

K 

1 

? 

3 

A 

c» 

PHASE 

BAS 

OAS 

OAS 

OAS 

c» 

CONT 

SPM 

CYL 

SPH 

SPM 

c* 

STFNP 

300.0  K 

300.0  K 

7T.S  K 

TT.5  K 

c» 

STfNE 

INFINITE 

INFINITE 

B.6C.0S  S 

1.6E*0T  S 

c« 

(10  DAY) 

(180  DAY) 

c« 

SPRFS 

A • 1 C ♦ OT  PA 

A  »  1 E • 0  T  PA 

A , 1 E ♦ OT  PA 

A.1C.0T  PA 

c* 

(6000  PSD 

(6000  PSD 

(6000  PSD 

(buOO  PSD 

c« 

rfsys 

BLO 

BLO 

BLO 

BLD 

c« 

HATER 

T I 

Tt 

ss 

ss 

c« 

C«  INPUT  VARIABLES) 

C* 

C»  J  •  STORAGE  MODE  CONTROL  VARIABLF 

C*  K  •  STORAGE  MOPE  CONTROL  ARRAY 

C*  NO?  *  TOTAL  OCLIVCRCO  NASS  0?  0?  IKG) 

C«  PO  •  COMBUSTOR  OR  N0C7LF  ST AGNATION  PRESSURE  (P*l 

C« 

C*  OUTPUT  VARIABLFSl 

C« 

c*  MTANK  ■  TANK  NASS  (KS) 

C«  STO?  •  STORAGE  MODE  DESCRIPTOR  OATA  ARRAY 
C"  STMOOf  *  STORAGE  MODE  DESCRIPTOR  ARRAY 
C»  VTANK  ■  TANK  VOLUME  1*3) 

C» 


INPUICiT  REAL (N) 

C 

COMNON/SCSA/K (10) 

C 

COMMON/'  CS5/STM0r.C  (10.10) 

c 

C0NN0N/SCSR/S1 0? ( 1 0 • A ) 

c 

OATA  ( (STO?( l.K) »K»l.A) , 1*1. 10)/ 

-10MC?  .IOMO?  .10M0?  • 1 0ND2  » 

•  10K8AS  . 1  OHS AS  . 1 0W8AS  .1PH8AS  • 


VND? 

0100 

VMP? 

olio 

VMO? 

61?0 

•VMO? 

0130 

•VNO? 

oiao 

•VMO? 

01S0 

•VNO? 

0160 

•VNO? 

0 1  TO 

YNOf 

01B0 

•VNO? 

OHO 

•VNO? 

oroo 

•  VMO? 

0?10 

•  VMO? 

0??0 

•V  »D? 

0?30 

•  VNO? 

o?-c 

•  VNO? 

o?so 

•  VMO? 

0?60 

•VMO? 

OiTfc 

•  VMO? 

0?S0 

•VNO? 

0?*1 

•VNC? 

0300 

•VMO? 

0310 

•  VNO? 

03?0 

•  VNO? 

0330 

•  VNO? 

OSAO 

•  VMO? 

03S0 

•VMO? 

0360 

•VNO? 

03T0 

•VNO? 

0380 

•VNC? 

0390 

•  VMS? 

OAOO 

•VNO? 

0A1C 

•  VNO? 

0A?O 

•VNO? 

0  A30 

•  VNO? 

OAAO 

•  VNO? 

OASO 

•  VNO? 

OAOO 

•VNO? 

OAT0 

•VNO? 

OABO 

•VNO? 

OAOO 

•VNO? 

OSOO 

••VNO? 

0010 

VNO? 

VS?0 

VND? 

0530 

VNO? 

OSAO 

VNO? 

0550 

VND? 

0360 

VNO? 

OSTO 

VNO? 

0580 

VND? 

0590 

VNO? 

0600 

VNO? 

0610 

VND? 

06?0 

VND? 

0630 

VMO? 

0640 

1>5 


i 


i 


ABFfNOl*  r  CMfMICAL  (.ASF#  ANALYSIS  PROP#**  tClA#) 


5(j8P0UtlNF  Vta(>?  dVE»L*V  SCI 

PAGE 

E  *  3? 

■ICXSPH  ,10MCH  ,1«H*PH  ,10M*PN  • 

VMD? 

o**o 

-10*300.0  *  ,(t«30(l.0  *  ,\OHT?.*  A  .tftHTT.A  A  « 

VMO? 

0**0 

-10*lhf  tNlTf  «10*tNF1NtTf  .10NA.AF.O*  S  ,l&Ml,At»AT  *  > 

VMO? 

0*TO 

-10M  tlOH  *10M(10  DAV)  ,10*1180  OAtl  . 

VMO? 

8*80 

-lOWA.lf.OT  PA.10MA.lf *01  **  A, 10H*  ,  1  f  ♦  0  T  P* , \ 0* A . \ t *  0 T  PA, 

V*0? 

0**0 

•  lOMifctnn  PsliMOwtfeooo  #sn  .iomisoop  psi  >  ,10*11.000  psi>. 

VMD? 

OTOO 

-10*8LO  ,  iO*ftl.C  ,10*PC0  ,10*8C0  . 

VMO? 

OTIO 

-1 0*Tt  .lOMTt  ,10*5S  ,lff*SS  / 

VMO? 

0T?0 

C 

VMO? 

0T3O 

c 

VMO? 

OTAO 

‘••VMO? 

0750 

c» 

•VMO? 

0T*0 

c« 

SET  ST0RA8F  Moot  CtrSCBlPTOR  AP«AV 

•  VMO? 

OTTO 

c* 

•VMD? 

07*0 

c**«< 

‘••VMO? 

07*0 

c 

VMO? 

0*00 

c 

VM{i? 

0810 

to  J.l  J»l*10 

VMD? 

08?  0 

101 

STWjOf ( 1 . J 1 «STO? 1 1 ,M l J n 

VMO? 

0«3C 

c 

VMO? 

08*0 

c 

VMO? 

08*0 

c«**< 

•••VMO? 

0**0 

c« 

•VMO? 

0870 

c« 

CALCULATE  TANA  V0i.U*E/M*5$ 

•VMO? 

0880 

c* 

•VMO? 

08*0 

C*«#' 

•••VMO? 

0*00 

c 

VMJ? 

0*10 

c 

VMO? 

0*?0 

00  TO  (10?.10?,V05.1«S),A(J1 

VMO? 

0*30 

c 

VMO? 

0**0 

c 

VMD? 

0**0 

r**« ••*••••••*••••»****••«•*•*•*•*••••••••••••••• ••••***•*1 •••••••••*••• vnO? 

0**0 

c« 

•  VMO? 

0*70 

c» 

0 AS  STORAGE  (300  At 

•VMO  2 

0*80 

c« 

•VMO? 

0**0 

c*** 

•••VNO? 

1000 

c 

VMO? 

1016 

c 

VMO? 

10?P 

10? 

AFtl.O/t  1 .0-(3.0?l*?r-O8«P0l«* U.O/V  ,3*8??n 

VMO? 

1030 

00  TO  (103.10*1  * A ( 0 > 

VMO? 

10*0 

103 

MT  ANA»MT  AHA*  1  3  ,*103*  AT  »M0? 

VMO? 

1080 

-  •  0.'»**S*T«(Ar«*0?l**(?,0/3.0> 

VMO? 

10*0 

VTANK»VTANA«?,0??*TC-O?*Ar*MD? 

VMD? 

1070 

RETURN 

VMO? 

1080 

It* 

MTANA«MTANA*1T,*10?*AF«MO? 

VMO? 

10*0 

-  ♦?,00800»lAF*Mtl?l**  S?. 0/3. 01 

VMO? 

1100 

VTANA«VTANA,?,C??*7E-0?»AF»M0? 

VMO? 

mo 

PC TURN 

VMO? 

U?0 

c 

VMO? 

1130 

c 

VMO? 

11*0 

•••VMO? 

1150 

c* 

•VMO? 

ll*C 

c* 

GAS  STPRA8C  (T7.5  A) 

•VMO? 

1 1  TO 

c» 

•VMO? 

1180 

c*«* 

•••VMO? 

11*0 

! 

I 

] 

•I 

i 

! 

i 

\ 

i 
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444fN0!«  f  rHCMfcAl  4MAIV41S  MM*»»  iCi*4> 


sui/ouunr  v *">? 

ovr»i*T  scs 

449C 

f -33 

c 

VHP/ 

1/00 

r 

VM04 

1/10 

lov 

0-1 3. 0/10/1 -0**90 )**<1.«/1  ,3T*0«)  * 

v*o? 

1/90 

90  TO  <104 

.  ion  ,*  <ji  -? 

VKD/ 

1/30 

i  ft* 

VHDf 

1/40 

• 

♦/. 43/04*  IAF**09 >••</, 0/3.0) 

V*0/ 

1/90 

VTAH9»VTA4<9.*,40T44l-p3*AF*<«t)/ 

v*o/ 

1/90 

• 

*/.0//03f-P3* 1A9*4P/|**  </, 0/3.0) 

VHOf 

1  /TO 

- 

♦3. 40 //or -04*  1  Af*NO/|  ••  1 1 .0/3.9) 

vno/ 

1/90 

*rru»* 

v«o/ 

l/*0 

1PT 

9*4,  3«0/I*Ar*4p/ 

V«D* 

1300 

• 

♦  4.01  T4J*  ( AF**«0/>  ••  If  ,9/3*0) 

*uo/ 

1310 

• 

.  3. 44949*  1 49*40/) ••(). 0/3.0) 

v«»d/ 

13/0 

VTANK*VTAMt*«. 40/44* -US*  AT  *40/ 

vMor 

1330 

- 

*1 .51  34/r-0/*tA/**»0/l**  1/. 0/3.0) 

v*o/ 

1340 

• 

♦  4./4AO/C-0  3*IA/*N0/)*»  U.0/3.0) 

VWf 

1340 

FNO 

v*o/ 

1390 

197 


APPENOI*  r  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


subroutine  vmf?  overlay  scs 

PAOE 

r-SA 

su**ouTr*r  vmf?i  j,"e?.mme  ,po.mtank,vtank< 

VME? 

0100 

c 

VMF? 

Olid 

c 

vmf? 

01?0 

••VM ft 

0130 

c» 

«vm  e? 

0140 

c» 

f ?  tank  volume /mass  subroutine 

•  VME  t 

01S0 

c» 

•VM  F? 

0160 

c«» 

••VMF? 

0 1  TO 

c 

VME  t 

01S0 

c«« 

•  •VM ft 

0  190 

c« 

•VME? 

0?00 

c« 

subroutine  vre?  calculates  the  tank  volume /mass 

FOR  THE  STORAGE 

•vm  e? 

0?I0 

c* 

of  f?. 

•VWf 

e??o 

c« 

•VME  l 

0?30 

c« 

F ?  HAT  RE  STORED  any  OF  FOUR  VAYCI  HOWEVER,  VHEN  STpRCO  AS  A  ®AS» 

•VME? 

0?*0 

c« 

F?  IS  STORED  with  Hf  AS  A  OAS  MIXTURE  AT  A 

PARTIAL  PRESSURl 

•  VME? 

0?SP 

c« 

PF?  ■  6.A94T6E 406  PA  (1000  PSIA)  PROVIOEO  Hf 

IS  PRESENT  IN  THE 

•VME? 

0?60 

c« 

svsTrMi 

•  VME? 

0?T0 

c» 

•VME? 

0?B0 

c« 

K  1  ?  3 

4 

•VME? 

0?P0 

c« 

P  ,SE  (US  OAS  LIO 

LIO 

•VME? 

0300 

c» 

CONT  SPh  CTL  SPH 

SPm 

•VME? 

0310 

c« 

STFNP  300.0  «  300.0  K  77. 5  F 

yt.r  k 

•VME? 

03?0 

c» 

STINE  INFINITE  INFINITE  R.6F40K  S 

1 , 6E  4  o  7  S 

•VME? 

0330 

c* 

(10  DAY) 

(ISO  DAY) 

•VME? 

0340 

c» 

SPRES  E .9E  *06  PA  0 . PE  406  PA  l.?B»P0 

1 .?5*P0 

•VME? 

03S0 

c« 

(1000  PSI 1  (1  000  PSD 

•VME? 

0360 

c» 

PFSYS  RLO  RLO  POS 

POS 

•VME? 

0370 

c* 

NATEP  ss  ss  ss 

ss 

•  VME? 

03BO 

c« 

•VME? 

0390 

c* 

INPUT  VARIABLES! 

•  VME? 

0400 

c» 

•VME? 

0410 

c» 

J  ■  STORAOE  HOPE  CONTROL  VARIABLE 

•VME? 

04?0 

c« 

K  a  STORAGE  MODE  CONTROL  ARRAY 

•  VME? 

0430 

c* 

NF?  *  TOTAL  DELIVERED  HASS  OF  E ?  {K65 

•  VME? 

0440 

c» 

MmF  a  TOTAL  OCLIVEREO  HASS  OF  ME  CFOJ 

•VME? 

0450 

c* 

PO  a  COMBUSTOR  OR  N077LE  ST AONAT ION  PRESSURE 

I  PA  l 

•VME? 

0460 

c* 

•VME? 

0470 

c* 

OUTPUT  VARIABLES! 

•  VME? 

04B0 

c« 

•VME? 

0490 

c« 

MTANK  a  TANK  MASS  t  KG ) 

•VME? 

0500 

c« 

STF?  a  STORAOE  "OOE  DESCRIPTOR  DATA  ARRAY 

•VME? 

0510 

c» 

STRODE  a  STORAOE  MODE  DESCRIPTOR  ARRAY 

•VMF? 

05?0 

c« 

VTANK  a  TANK  VOLUME  CM3) 

•VME? 

0530 

c* 

•VME? 

0540 

c»« 

••VME? 

0550 

c 

VME? 

0560 

c 

VME? 

0570 

IMPLICIT  PEAL(M) 

VME? 

0580 

c 

VME? 

0590 

COMMON /SCSA/K (10) 

VME? 

0600 

c 

VME? 

0610 

CCMMON/SCSS/STMOOE (10,10) 

VME? 

06?0 

c 

VME? 

0630 

COMMON /SCS 10/5TF?<  10.4) 

VME? 

0640 

198 


ibbcnoix  r 

SUBBOUT  mr  VNR? 


CHt-IC*L  IISFR  INM. YS1S  PBOBBIN  (CLIP) 
OVMLBT  SCS 


Hit  t-« 


c 


c 

c 

c»* 

c» 

e» 

c« 

C»« 

c 

c 

101 

c 

c 

c*» 

c« 

c» 

c« 

c«« 

c 

c 


c 

c 

c«*< 

c* 

c* 

c* 

c«« 

c 

c 

10? 


OITA  ( (STF? ( ! .« I .K»l .*> . t«l . 10) / 

IOnp?  .lonr?  .lour? 

10N**S  .10M9I5  •  I  OK.  10 

10NSPN  .SONftt  , lOHSPN 

lOMJOO.n  R  .lONTBO.O  R  .10N1T.5  R 

1  ONI  HP  tMt  TC  «10HINMN1TC  .10NB.6F.05  * 
ION  .ION  .10H(10  o*ri 

10N6.BC.06  PI. 10N6.BC *06  PI . 1  ONI . ?5«P0 
lONiieon  PSl)  .lONdooc  psd.ion 
1 ONBLD  .10NBLO  . 1 0NP6S 

10NSS  .10NSS  .10NSS 


.  I  (INF?  • 

.10HLIO  . 
• 1 OHSBM  . 
. 10NTT.S  R  . 
.10H1.6C.OT  S  • 
, 1  ON ( 1  BO  01 T I  . 
.tONl.BSiPO  . 
.ION  . 
,10M«BS  . 
,10HM  / 


SC T  ST OP ISC  NOOC  OCSCB 1PT0B  IBRIT 


DO  101  !>1.10 

STNOOC (1 ,J1»STR? (l.RtJI ) 


CILCULITC  T INK  VOLUHC/NISS 


#0  TO  (10?. 10?. 1  OS .105) ,R (J) 


BAS  STOBIOC  (300  K» 


ic(nmc.nc.o.o)  stnooc <i,j)«ioNr?/MC 

XFF?»1.0/<i.O.<31.0068*HHCt/(*.CO?6*HF?l 1 
XFNC«1.0-XFF? 

PS«*.86*16C.06/XFF? 

PNf ■PS-6.BB*T6t*06 

NROI  •  B06B*  (HMC/HF?. 1 .0)/tXFHC/XFFP.l.O) 

0« (?.5006?*XFHC/XFF?.*. 1*1*6) /(l. 5000?*XFMF/XFF?. 3. 161**1 

?HC»6.615T6C-0B*PNC.l .000S3 

?»0,6806H5«XFF?.?MC*XFHC 

*F»1 . 0/ ( 1 .0- Cl .?9»B0/PSl •• t 1 .O/Bl 1 

NTOTACpNHC.NF? 

IF (PS. BT. 1.1 36BSC.QT )  VR1T£(6.?01I (PS.IlM.6) 

«0  TO ( 1 03. 10*1 »R ( J1 


VHF? 

06SO 

VHP? 

0*60 

VHP? 

0*10 

VHP? 

0**0 

VHP? 

0*60 

VHP? 

*10* 

VHP? 

0110 

VHP? 

01?0 

VHP? 

0130 

VHP? 

0160 

VHP? 

0190 

VHPf 

01*0 

VHP? 

*110 

VHP? 

0100 

►•VHP? 

0160 

•VHP? 

OBOO 

•VHP? 

OB  1 0 

•VHP? 

0*?0 

••VHP? 

0*30 

VHP? 

0**0 

VHP? 

0890 

VHP? 

0*60 

VHP? 

OBI  0 

VHP? 

OBOO 

VHP? 

00*0 

••VHP? 

OBOO 

•VHP? 

OBI  0 

•  VHP? 

0B?0 

•VHP? 

0635 

••VHP? 

06*0 

VHP? 

0650 

VHP? 

0660 

VHP? 

0610 

VHP? 

06*0 

VHP? 

0660 

••VHP? 

lose 

•VHP? 

1010 

•VHP? 

10?0 

•  VHP? 

1030 

••VHP? 

10*0 

VHP? 

1050 

VHP? 

1 06C 

VHP? 

1010 

VHP? 

10BO 

VHP? 

1060 

VHP? 

1100 

VHP? 

1110 

VHP? 

11P0 

VHP? 

1130 

VHP? 

11*0 

VHP? 

1150 

VHP? 

1160 

VHP? 

1110 

VHP? 

11  BO 

VHP? 

1160 

oonoooooo 


APPFNDI*  F 
SUBPOUT  INF  VNF? 


CHFM I  CAL  LASER  ANALYSIS  PROGRAN  (CLAP) 
OVCRLAY  SCS 
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103  MTANK«MTANK*1. 10210* (1 .0*67.5353*Z/NM>*AF*NT0TAL 

♦?.47854E*05*(7*AF*M7OTAL/<PS*MN) >••<2. 0/3.0) 
VTANK»VT  ANK  *2 •  69759F*06*Z*AF  *NTOT  AL/ (PS*MW ) 
petupn 

104  MTANK«NTANK*1 .08150*  ( 1 .0*91 .2639*Z/MN)*AF*MT0TAL 

-  ♦S.47613E*05*(2*AF*HTOTAL/(PS*M»<) )**(2.o/3.0) 

VTaNK*VTANK  *2, 69759E *06*Z*AF *MT0TAL/ (PS*MW ) 

RETURN 


PSS  LIQUID  STOPAGF  (77.5  K) 


105  AF«1.0/(1.0-(3.17?70f-08*P0)**(1.0/1.61019> ) 

Z»1 .749R6F-08*1.?*- *P0  *0.999271 

MPGS*7.08056E-03*NF2/ (1.2?656E*05*Z/P0-6,76795E-03*AF> 
00  TO  (106.107) ,K(J)-2 

106  MTTP0S«4.71 181*AF*MPGS 

-  *2.67404* ( AF*MPGS )**(2«0/3.0) 

-  *0.217186* ( AF*NPGS )**(1. 0/3.0) 
VTTPOS«7.10635F-03*AF*MPOS 

-  *?.76R84E-03*(AF*NP6S) **(2.0/3.0) 

-  *3.59605E-O4«(AF*NPGS)**(l .0/3.0) 

MVT«1 • 18685*HF2 

-  *1.6R?21E-0B*P0*MF? 

-  *0.571231 *MF2** (2. 0/3,0 ) 

♦0.10?337*MF2**(1. 0/3.0) 

MMT*  1 . 1 R685*NF2 

-  *0.736480*MF2**(2.0/3.01 

-  .0.1 02337*HF2** ( 1 • 0/3 .0 ) 

MTANK-MTANK* ANA* 1 (NVT ,HNT ) *MTTPGS 
VTANK«VTANK*7.78861E-04*NF2 

-  *6.*4034E-04«MF2**(2.0/3.0> 

-  *1.7751 4E~04*MF2** ( 1 .0/3.0 ) 

-  *VTTPGS 
RETURN 

107  MTTPGS«4 .61 764*AF*MPGS 

-  *5.92067*  ( AF*MPG5)  **  <2 . 0/3  •>  0) 

-  *3.53850* ( AF*NPGS )**(1, 0/3,0) 
VTTPGS»7.10635E-03*AF*MPGS 

-  *i .38442E-02«(AF*NPGS) •* (2. 0/3,0) 

-  L,«.  990 1 7E-03*(AF*MPGS  )*•(!.  0/3,0) 
MVT»1.17700*MF2 

♦1.6«221E-08*P0*NF2 

-  *1. ?9?07*MF2*«(2. 0/3.0) 

♦1.66733«NE2**(1. 0/3.0) 

NMT«1 . 17700*MF2 

♦1.45732*NP2*»(2.0/3.0) 

-  *1.66733*MF2**(1, 0/3.0) 

NT ANK »MT ANK* AM AX  1 (NVT ,NMT ) *NTTPGS 
VTANK»VT*NK*7.78861E-04*NF2 


VMF2 

VNF2 

VNF2 

VNF2 

VNF2 

VNF2 

VNF2 

VNF2 

VNF2 

VNF2 

•VNF2 

•  VNF2 

•  VMF2 
•YMF2 

•  VMF? 
VMF2 
VNF2 
VMF2 
VNF2 
VNF2 
VNF2 
VMF? 
VMF  2 
VMF  2 
VMF2 
VMF2 
VMF? 
VMF  2 
VMF2 
VMF2 
VMF2 
VMF2 
VMF  2 
VMF2 
VMF2 
VNF2 
VMr  2 
VMF2 
VMF2 
VMF2 
VMF  2 
VMF2 
VNF2 
VMF2 
VMF2 
VMF2 
VMFZ 
VMF2 
VNF2 
VNF2 
VHF2 
VMF2 
VMF2 
VMF2 
VMF? 


1?00 
1210 
1220 
1230 
12*0 
1250 
1260 
1270 
1  ?BO 
1270 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1290 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 


nnooooonrt 
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appendix  c 

CHEMICAL  LASFP  ANALYSIS  PPO*»AM  (CLAP) 

surpoutine  vmf? 

OVERLAY  SCI 

PAGE 

E-3T 

. 

* 3. ??01TF-0  3»MF ?••(?.  0/3.0) 

VMP? 

1750 

. 

♦  4.63T*TC-03»NF?#M1.  0/3.0) 

VHP? 

1760 

« VTTP8S 

VMF? 

1770 

return 

VMEP 

17*0 

c 

VMF? 

l  760 

c 

VMF? 

1*1)0 

l*)0 

c» 

•VMF? 

1  *?0 

c» 

fopmat  statements 

•VHP? 

1*30 

c 

•  VMF? 

1*60 

1*50 

c 

YMF? 

1*60 

c 

VMF? 

1*70 

?01  FQPMAT ( •  1  • 

,T?.«MAPN!N0i  storage  pressupe  eop  fp/he  exceeds 

A.  136*5 VMF? 

1**0 

-l«0T  PA  (6000  PS! A)».9(/.T?,»PS  ■••E13.6.®  PA*>) 

VMF? 

1*50 

END 

VMF? 

1900 

201 


*v 


tt'PFNOr'  E  CMEWJCAL  LASER  ANALYSIS  PROflRAM  (CLaP> 


SL'RFfiUTINE  VMWE  OVERLAY 

SCS 

PAOE 

e-3R 

SltROOUT  JNF  VtlME ( J.MHf .PO.MTANK.VTANK) 

VMME 

0100 

c 

VMME 

0110 

c 

VMME 

OlfO 

c»« 

»••••< 

•••VMME 

0130 

c* 

•  VMME 

0140 

c« 

HC  TANK  VOLUME/NASS  SUBROUTINE  ( VMME ) 

•  VMME 

01S0 

c* 

•  VMME 

0160 

c*» 

►••••< 

•••VMME 

0170 

c 

* 

VMME 

0180 

c*» 

!••••< 

•••VMME 

0190 

c» 

•  VMME 

ozoo 

c« 

SUBROUTINE  VNH E  CALCULATES  THE  TANK  VOLUME /MASS  FOR 

THE  STORAOE 

•  VMME 

Of  1  0 

c* 

OF  HF. 

•  VMME 

OffO 

c* 

•  VMME 

ofjb 

c* 

ME  NAY  RF  STORED  ANY  OF  FOUR  KAYSt 

•  VMME 

OB40 

c* 

•  VMME 

orso 

c* 

k  i  f 

1 

4 

•  VMME 

Of  60 

c* 

PHASE  OAS  OAS 

OAS 

OAS 

•  VMME 

0f70 

c« 

CONT  SPM  CYL 

SPH 

SPH 

•  VMME 

Of  AO 

c* 

STEHP  300.0  K  100.0  K 

TT.S  K 

TT.S  K 

•  VMME 

0f«0 

c» 

STINE  INFINITE  INFINITE 

0.6E *0S  S 

1 .6E*0T 

s 

•  VMME 

0300 

c» 

(10  DAY) 

(ISO  DAY) 

•  VMME 

9310 

c* 

SPRfS  4.1E*OT  PA  4 , 1 F ♦ 07  PA 

4  •  1 E ♦ 0  7  PA 

4 . IE*  07 

PA 

•  VMME 

03f  0 

c* 

(6003  PSD  (6000  PSD 

(6000  PSI) 

(6000  PSD 

•  VMME 

0330 

c* 

RFSYS  RIO  RIO 

8L0 

OLD 

•  VMME 

0340 

c» 

HATFR  T I  TI 

ss 

SS 

•  VMME 

03S0 

c» 

•  VMME 

0360 

c» 

IN»UT  VARiaBLFSl 

•  VMME 

03T0 

c* 

•  VMME 

0380 

c« 

J  a  STORAOC  MOOC  CONTROL  VARIABLE 

•  VMME 

0390 

c* 

K  ■  storaoe  MODE  CONTROL  ARRAY 

•  VMME 

0400 

c* 

HME  •  TOTAL  OCL I VERFO  NASS  OF  ME  (KOI 

•  VMME 

0410 

c« 

PO  •  COMBUSTOR  OR  NOZZLE  STAGNATION  PRESSURE  (PA1 

•  VMME 

04J0 

c« 

•  VMME 

0430 

c* 

OUTPUT  VARIARLFSI 

•  VMME 

0440 

c* 

•  VMME 

04K0 

c* 

NTANK  r  TANK  MASS  (KO) 

•  VMME 

0460 

c* 

STHE  a  STORAOE  MOOE  DESCRIPTOR  DATA  ARRAY 

•  VMME 

0470 

c» 

STMOOE  STORAOE  MODE  DESCRIPTOR  ARRAY 

•  VMME 

04P0 

c* 

VTANK  B  TANK  VOLUME  r M3 1 

•  VMME 

04«*0 

c* 

•  VMME 

ospo 

c** 

•••VMME 

0S10 

c 

VMME 

OSfO 

c 

VMHE 

0S30 

IMPLICIT  RFAL(M) 

VMMF 

OSAO 

c 

VMME 

OSSO 

COMMON /SCS 4 /K  (10) 

VMME 

OSAO 

c 

VMME 

0S70 

C0MM0N/SCS5/STM00E (10.10) 

VMME 

OSAO 

c 

VMME 

0S90 

COMMON /SCS  U/STMEU0.4) 

VMME 

0600 

c 

VMME 

0610 

DATA  ( (STME (I»KI.Kb1.4),Ib|,10I/ 

VMME 

06f  0 

-10HHE  . 1 CMME  • 1 OMHC 

•  1 OMME 

• 

VMME 

0630 

-10MOAS  , 10MOAS  , 10MOAS 

. 10MOAS 

• 

VMHE 

0640 

202 


APPFNOI*  r 
SUBROUTINE  VMMF 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 
OVFRLAY  SC5 
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-10MSFM  .10HCVU  .10HSPH  .10MSPM 

t 

VNME 

0650 

-lOHSOO.O  n  .10H100.0  K  «  1  OH? 7,5  K  .10M77.5  K 

• 

VNME 

0660 

-10M1NFINITE  .10MINFINITF  ,IOMR.6E*OS  S  ,10M1.6E*07 

S  , 

VNHE 

0670 

■*»  1  OH  ,  1  OH  •  1  OH  (10  PAY)  •  1  OH  1 1 80  DAY)  , 

VNME 

0680 

-10H*.1E*07  P A « 1  OH* . 1 F  * 0 7  P A , 1  OH* . 1 E ♦ 07  PA* 1  OH*, IE* 07 

RA, 

VNHE 

0690 

-1  OH  (6000  PSI )  <  10H(6000  PSI )  « 10H(6000  PSt )  ,  1  OH  (6000  PSD* 

VNHE 

0700 

-13MRL0  .  10HRLD  « 1 OMRLD  .10H8LD 

* 

VNME 

0710 

-10HT1  *  1 OHT I  .10HSS  « 1 OHSS 

/ 

VNHE 

07?0 

c 

VNHE 

0730 

c 

VNHE 

07*0 

£••• 

••••VNHE 

0750 

c« 

•VNHE 

0760 

c* 

SET  STOPAOF  HOOE  OESCRIPTOR  ARRAY 

•VNHE 

0770 

c» 

•VNHE 

0780 

c«*«* 

••••vmhe 

0790 

c 

VNME 

0600 

c 

VMHE 

0610 

00  101  I-l.lO 

VNME 

0820 

101 

STHOOE ( I,J)«STHE (1 ,K (Jll 

VNHE 

0830 

c 

VNME 

08*0 

c 

VMHE 

0850 

(:••• 

••••vmhe 

0560 

c» 

•VMHE 

0870 

c* 

CALCULATE  TANK  VOLUME/MASS 

•  VNME 

0880 

c» 

•VNME 

0890 

c«**« 

>*»»»vmhe 

0900 

c 

VNME 

0910 

c 

VNME 

0920 

00  TO  (10?. 10?. 101, 105) ,K(J) 

VNME 

0930 

c 

VNHE 

09*0 

c 

VNHE 

0950 

'••••VNME 

0960 

c* 

•VNHE 

0970 

c* 

OAS  STORAOf  (300  IM 

•VMHE 

0980 

c» 

•VNME 

0990 

C*“ 

'••••VMHE 

1000 

c 

VNHE 

1010 

c 

VNHE 

1020 

in? 

AF"1.0/(DC-(3.0?16?fe-(i8»P0)**<l  ,0/1  ,66*RM)  ) 

VNHE 

1030 

0)  TO  (103.10*1 *K(J) 

VNME 

10*0 

103 

HT  ANKbMT  ANK ♦ 1 2, 8950* AF  »MHC 

VNME 

1050 

♦0.9??6*S*(AF*HME »••(?. 0/3.0) 

VNME 

1060 

VTANK»WTANK*1 . 9J7*6E-0?#AF*MME 

VNME 

1070 

RETURN 

VNHE 

1080 

10* 

MTANKaMTANK*16,T199«AF«NHE 

VNME 

1090 

♦2.03851*(AF*MME)«»(2.0/3.0> 

VNHE 

1100 

VTANK»VTANK*1 ,937*6E-0?*AF*MME 

VNHE 

1110 

RETURN 

VNME 

1120 

c 

VNME 

1130 

c 

VNME 

11*0 

c«*« 

.••••VMHE 

1150 

c* 

•VNHE 

1160 

c* 

OAS  STORAGE  (77,5  K) 

•VNHE 

1170 

c* 

•  VNME 

1180 

I 

i 


APPCNOIK  F  C«CMIC*L  LASfR  ANALYSIS  PROGRAM  (CLAP) 


SUOROUTINF  VMHF 

OVERLAY  SCS 

RASE 

C-AO 

C 

VMHC 

1200 

c 

VMHC 

1210 

10* 

*7*1. 0/(1. 

0-(3.02162F-04*P0>**( 1 ,0/1 .6101$) ( 

VHME 

1220 

00  TO  (106 

» 1 07) *K ( J| «? 

VMHC 

1230 

1  OF 

htank*mtank**.0911T*af*mmf 

VMHC 

12*0 

• 

♦  2.7272S*(AF*l4Ht)**(2.0/3.0) 

VMHC 

1290 

m 

♦0.2 10336* <AF*HHC  »••(!.  0/3.0) 

VMHC 

1260 

VMHC 

1270 

m 

♦2.62305E-01*(AF*MHC >••(?, 0/3. 01 

VMHC 

1200 

m 

♦3.63166E-0**(AF*MNC)**<1. 0/3.0) 

VMHC 

1200 

RCTUPN 

VMHC 

1300 

107 

HTANK*WTANK.*.75617*AF*MHF 

VMHC 

1310 

- 

♦6. 03040* (AF*MHC)**(2.0/3.0> 

VMHC 

1320 

- 

♦  3. 47343* (AF*MNC )*•(!. 0/3.0 1 

VMHC 

1330 

VTANK«VTANK.7.3104*E-03*AF*MHC 

VMHC 

1340 

• 

*1. *11072-02* ( AF*MHC )••(?, O/J.O) 

VMHC 

1390 

m 

♦0. 070 1 OC-03* (AF*MHC>«* (1.0/3. 0) 

VMHC 

1360 

END 

VMHC 

1370 

204 


APPENDIX  F  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  VMH?  OVERLAY 

scs 

PAGE 

e-4i 

SUBROUTINE  VMN?(J,MM?,PO.MTANK,VTANK) 

VMM? 

0100 

C 

VMM? 

0110 

C 

VMM? 

01?0 

c»» 

•••VMH? 

0130 

c* 

•  VMM? 

0140 

c» 

h?  tank  volunf/mass  subrout  Inf  (Vmh?) 

#VMM? 

oiso 

c» 

•  VMM? 

0)60 

C«» 

•••VMM? 

0170 

c 

VMM? 

0100 

c*» 

•••VMM? 

0)90 

c* 

•  VMM? 

0200 

c« 

subroutine  VNH?  CALCULATFS  ThE  TANK  VOLUMF/MASS  fop 

THE  STORAGE 

•  VMM? 

0?10 

c» 

OF  M?. 

•  VMM? 

0??0 

c« 

•VMM2 

0?30 

c* 

M2  MAY  RF  STORED  ANY  OF  FOUR  WAYS  1 

•VMM? 

0?40 

c« 

•  VMM? 

o?so 

c« 

K  1  ? 

3 

4 

•  VMM? 

0?60 

c* 

PM ASF  GAS  GAS 

GAS 

GAS 

•  VMM? 

0?7  0 

c* 

CONT  SPN  CYl 

SPM 

SPM 

•  VMM? 

0?B0 

c« 

STFNP  300.0  K  100,0  K 

7T.S  K 

77. S  K 

•  VMM? 

0?90 

c« 

ST  IMF  INFINITE  INF  IN  I Tf 

A.6F*0K  S 

1,6E*07  S 

•  VMM? 

0300 

c» 

(10  DAY) 

( 1  AO  DAY) 

•  VMM? 

0310 

c* 

SPRFS  4 , IE ♦ 0 T  PA  *.]E*07  PA 

4  •  1 E  *  07  PA 

4. IE. 07  PA 

•  VMM? 

03?0 

c« 

(6000  P5 I 1  (6000  PSIl 

(6000  PSI) 

(6000  RSI) 

•  VMM? 

0330 

c* 

RFSYS  BLO  0LD 

BLO 

BLO 

•  VMM? 

0340 

c* 

MATFR  ti  ti 

ss 

ss 

•  VMM? 

0390 

c* 

•  VMM2 

0360 

e» 

INPUT  VARIABLES! 

•VMM? 

0370 

c* 

•VMM? 

0300 

c* 

J  ■  STORAGE  HOOF  CONTROL  VARIABLE 

•  VMM? 

0390 

c* 

K  •  STORAGE  MODE  CONTROL  ARRAY 

•  VMH? 

0*00 

c* 

MM2  *  TOTAL  OELIVERFO  MASS  OF  H?  tKGJ 

•  VMM? 

04)0 

c* 

PO  ■  COMBUSTOR  OR  NO??LE  STAGNATION  PRESSURE  IPA1 

•  VMM? 

04?0 

c* 

•  VMM2 

0*30 

c* 

OUTPUT  VARIABLES! 

•  VMM? 

0**0 

c* 

•  VMM? 

0*S0 

c* 

MTANK  a  TANK  MASS  (KG) 

•VMM? 

0*60 

c* 

STM?  a  STORAGE  MODE  DESCRIPTOR  OATA  ARRAY 

•  VMM? 

0*70 

c* 

STMODF  a  STORAGE  MOOE  DESCRIPTOR  ARRAY 

•  VNM? 

0*B0 

c» 

VTANK  a  TANK  VOLUME  (NJ  J 

•VMM? 

0*90 

c» 

•  VMM? 

0900 

c** 

•••VMH? 

0910 

c 

VMM? 

0920 

c 

VMM? 

0930 

IMPLICIT  REAL (M) 

VMH? 

09*0 

c 

VMM? 

0990 

COMMON/SCS4/K ()0) 

VMH? 

0960 

c 

VMH? 

0970 

COMMON/SCSS/STMOOE (10,101 

VMM? 

09B0 

c 

VMH? 

0990 

COMMON/SCS 1 ?/STH? (10,4) 

VMH? 

06A0 

c 

VMH? 

0610 

OATA  (  (5TM?(I,K) ,KaJ ,4) , lal,  10)/ 

VMH? 

0620 

-10MH?  • 1 OMM?  • 1  OHM? 

, 1 OMH? 

• 

VMH? 

0630 

•10MGAS  , 1 OMGAS  ,'OHGAS 

,) OMGAS 

* 

VMH? 

06*0 

APPFNDI*  r  CHEMICAL  LASER  ANALYSIS  PROflRAM  (CLAP) 


subroutine  VMM?  overlay  scs 

PAOE 

F>4? 

-10HSPH  .10HCYL  ,10HSPH  ,  1  ftHSPH 

VNH? 

0050 

-10M300.0  K  .10H300.0  K  .10HTT.5  *  .10HTT.5  K 

VMM? 

0060 

-10HINPINITE  • 1 OHINF IN I TP  .10H6.6E»0S  S  .lOMl.OE^OT 

S 

VNH? 

0670 

-10H  .10H  .10HU0  OAYI  •  ] OH  < 1 60  DAY  > 

VNH? 

OOSO 

-10HA.ir»OT  PA • 1 0H4  , If ♦ 07  P A , 1 0H4 . 1 E ♦ 0 7  P A . 1 0«4 . 1 E*07 

PA 

VNH? 

0090 

•  1 OM  (6000  PSD.IOHIOOOO  PSI )  <  10H(6000  PS  I )  ,  \  0«  (6000  PSD 

VNH? 

0700 

-10MOL0  tlOHBLO  • 1 OHOLD  .JOHSLO 

VNH? 

0710 

-10HCSS  tlOHCSS  . 10HSS  . 10HSS 

/ 

VNH? 

07?0 

c 

VNH? 

0730 

c 

VNH? 

0740 

••••VNH? 

0750 

c* 

•  VNH? 

0700 

c* 

SET  STORAOE  NODE  DESCRIPTOR  ARRAY 

•VNH? 

OTTO 

c» 

•VNH? 

07B0 

c ••• 

lit 

••••VNH? 

0790 

c 

VNH? 

0600 

c 

VNH? 

0610 

DO  101  !■! .  1  0 

VNH? 

06?0 

101 

STMOOE  <I»J)«STN?(I,B(J)  | 

VNH? 

0630 

c 

VNH? 

0640 

c 

VNH? 

0650 

••••VNH? 

0600 

c» 

•  VNH? 

0670 

c« 

CALCULATE  TANK  VOLUHE/NASS 

•  VNH? 

0660 

c* 

•  VNH? 

0690 

£••• 

Itl 

••••VNH? 

0900 

c 

VNH? 

0910 

c 

VNH? 

G9?0 

00  TO  <10?.10?,105,105) ,K<J) 

VNH? 

0930 

c 

VNH? 

0940 

c 

VNH? 

0950 

c ••• 

Itl 

••••VNH? 

0900 

c* 

•  VNH? 

0970 

c» 

OAS  STORAGE  <300  0) 

•VNH? 

0960 

c* 

•  VNH? 

0990 

»•! 

••••VNH? 

1000 

c 

VNH? 

1010 

c 

VNH? 

10?0 

10? 

AP»1. 0/ < 1. 0- <3. 0?16?E-06*P0I •• <1.0/1. 36381 >» 

VNH? 

1030 

00  TO  <103.1041 ,K(J> 

VNH? 

1040 

103 

MTANK»MTANR.?5.9S60*AF*HN? 

VNH? 

1050 

-  *1 .51605* < AF»NH?) ••<?.C/3.0> 

VNH? 

1060 

VTANK*VTANK.4.003?7E-0?*AF*MH? 

VNH? 

1070 

RETURN 

VNH? 

1060 

104 

NT  ANK»MT  ANK. 34 . 040 1 *AF  *NH? 

VNH? 

1090 

♦3.35091* (AF*NN?) ••<?, 0/3.0) 

VNH? 

1100 

VTANK»VTAN<U4.083?TE-0?«AF*NH? 

VNH? 

1110 

RETURN 

VNH? 

U?0 

c 

VNH? 

1130 

c 

VNH? 

1140 

c*** 

!•« 

••••VNH? 

1150 

c» 

•  VNH? 

1160 

c* 

OAS  STORAOE  <77.5  K 1 

•  VNH? 

1170 

c» 

•VNH? 

1160 

C*»» 

••••VNH? 

1190 

o  u 


ABPFNOl*  C 
SUBBOUT  INF  VMM? 


CMfMTCBL  l*Sf  B  ANAL VS] >  BB06BAM  (CLAP) 
ovcslav  SCS 


bam  t-u 


IBS  *FaJ , 0/ ( 1 ,  0“  •3,<>T16Ff  “OB^BO)  •• <1,0/1*44661)1 
00  TO  <106. 10T) *K<J)-f 

l  n#>  mt*nk»mtank*?.?4031«af*mm? 

-  ♦3.B033A®  < Af 4MMH •• (f « * V3,0 1 

•  *0 *165400*  TAB •NHfl •• <1,0/3,01 
VTANK4VT»NK*l.fO66OF-0f4AF#NMf 

-  *4* 13464C-03* <AF4MMf ) •• It*  0/3*  0 ) 

-  *4, S04S?C”044 <AP4MMf I**<1, 0/3*0) 

betubn 

1 OT  MT  ANKaMTANK  t T , ST64S#AF  4MH? 

-  •B.B41A3*(AF4MM?)44(?, 0/3,0) 

•  *4 , 3f  4  1 0* ( AF#MMf) **<1, 0/3,0) 
VTANKavTANK*l.?064«E-nf4AF#MM? 

-  *?,06T4TE-fl?4(  4F*NM?  )••(?, 0/3,0) 

-  ♦ 1 , 0066 At *0?* ( AF  »MM?) **<1, 0/3,0) 
FNO 


VMM*  1*00 
VMM*  If 10 
VMM*  IffO 
VMM*  If 30 
VMMf  ]f 40 
VMM*  I f 30 
VMMf  If 60 
VMMf  If TO 
VMHf  If BO 
VMMf  | f 60 
VMMf  1300 
VMMf  1310 
VMMf  1 3f 0 
VMMf  1330 
VMMf  1340 
VMMf  1 390 
VMMf  1360 
VMMf  1 3T0 


onnoftnnnnnnonnaonoonnonooftooonooirtonortoonft 


APPFNOI*  f  CHEMICAL  LASER  ANALYSIS  PROORAN  (CLAP) 

SUBROUTINE  VM I  RENA  OVERLAY  SCS 


RACE  E~A* 


SUBROUTINE  VMIRENAI J,M IRENA, PO.RTIME. NT ANK.VTANK) 


IRENA  TANK  VOLUME/MASS  SUBROUTINE  (VMIRENA) 


SUBROUTINE  VM IREN A  CALCULATES  THE  TANK  VOLUNi?/NASS  EOR  THE  STOBABt 
or  INHIBITED  RED  EUMINO  NITRIC  ACIP  (Hi. *803N1. 6*350*. ASIBEO. 031. 

IRENA  MAY  RE  STORED  ANY  CE  EOUR  HAYS  I 


INPUT  VARIABLES! 

J  ■  STORAGE  MOOF  CONTROL  VARIABLE 

K  ■  ST0RA8E  MODE  CONTROL  ARRAY 

MIRENA  -  TOTAL  PELIVEPEO  MASS  OE  IRENA  IKB) 

RO  •  COMBUSTOR  OR  NOZELE  ST ASNATION  PRESSURE  CPAI 

RTIME  a  RUN  TIME  tSl 

OUTPUT  VARIABLES! 

MTANS  a  TANK  MASS  tKOl 

ST  IRENA  a  STURABE  MODE  DESCRIPTOR  DATA  ARRAY 
STMOOF  a  STOPASE  MODE  DESCRIPTOR  ARRAY 
VTANK  a  TANK  VOLUME  IM31 


IMPLICIT  REAL (Ml 

common/scsa/k (10) 

COMMON/SCSS/STMOOE (10,10) 

COMMON/SCS)3/STIRENA(10.*> 

OATA  ( (STI RENA (I«K),Kal,A),lal, 101/ 
-10HIRENA  , 1 OHlRENA  « 1 OHIRENA 

-lOHLie  .10HLIO  .10HLIO 

-10HSPM  , 10HCYL  , 10HSPH 


, 1 OHIRENA 
.10HLIO 
, 1 OHCYL 


VMIRENAC 100 
VMI'AENAOl  10 
VMIRENA01E0 
•• VMIRENAO 1 3b 

•  VM  JBENAO 1 *0 
• VM IRENAO 1 50 
•VMIRFNA01 AS 

••VMIRENAO 1 70 
VM IRENAO 180 
»•  VM  I RENAO 1  VO 
^VMIRt-NAOEOO 

•  VMIRENAOlflO 
rVMlRENAOEEO 

•  VMRENA0E30 
•VMIRENAOJAO 
•VMIRENA0E50 


K 

1 

? 

3 

A 

•VMIRENAOBAO 

PHASE 

LtO 

LID 

LIO 

LID 

•VMIRENAOPVO 

CONT 

*PH 

CYL 

SPH 

CYL 

•VMIREHAOEBO 

STFmP 

300. J  K 

300.0  K 

300.0  K 

300.0  K 

■>  VMIRENAO  *90 

stime 

INFINITE 

INFINITE 

infinite 

JNEINITC 

•VMIRENA0300 

SPBES 

:.?s«po 

1 ,?S*P0 

1  ATM 

1  ATM 

•VMIRENAOSIO 

RESTS 

POS 

P8* 

PES 

PES 

•VMIRENA03B0 

MATFR 

AL 

AL 

AL 

AL 

•VMIRENA0330 

•VMIRENA03A0 
•VMIRENA0350 
•VMIRENA03AC 
•VMIMENA03T0 
•VMIRENA03B0 
•VMIRENA03R0 
•VMIRENAOACO 
•VMIRENAO*  1 0 
•VHIRENA04E0 
•VNIRENA0430 
•VM IREN A 0**0 
•VMIRENAO450 
•VMIRPNA0460 
•VMIRENAO4T0 
•VMIRENA04B0 
•VMIRENA0A90 
••VM IRENA 0500 
VMIRENAOSiO 
VMIRENAO5E0 
VMIRENA0530 
VM1RENA05*0 
VMIRENA0550 
VMIRENA05A0 
VMIRENA05TO 
VMIRENA05B0 
VMIRENA0590 
VMIRENAOAOO 
VMIDENA061 0 
VMIRENAOftPO 
VMIRPNAOC30 
VMIRENA0A40 


„  n  *-  i 


%  rw 


arrfnoi*  f 

CHEMICAL  J. 

ASE»  ANALYSIS 

RROORAm  (Cl»R) 

subroutine  vtiMrN* 

overlay  SC  5 

RISE  C-A9 

-lONSO^.O  A 

•10H300.0  A 

•10MJ00.0  A 

.10M300.0  A 

• 

VMIRENAOA50 

-10NINE  iNltr 

• i o^i xr imi rr 

•  lOHINEli  1TC 

,  •OMINf INJTE 

, 

VNIRENAOAAO 

-10H 

•  10 

•  ?0M 

•  l  OH 

• 

VMIRENAOAYO 

-1#hi 

• 10H* ,?9«P0 

•10M1  ATM 

•10H1  ATH 

• 

VMJRf  HAOARO 

-lOH 

1 1  OH 

•  ION 

•  10H 

• 

vn;renao6*o 

-10NR3S 

•  1 OHRGS 

• 10MRES 

,ioH»rs 

9 

VNJRENAOTOO 

-10HAL 

• 10NAL 

•iomal 

•  1  0*<AL 

/ 

VMIRANAOYIO 

c 

VMIRAHAfYf# 

r 

VNT  RENAO’30 

c«*« 

••••••VMIRENAOTAO 

c» 

c* 

SET  ST0RA3F 

MODE  DE  sCRIRTOR  ARRAY 

c* 

•VNJREiAAOTTS 

C«*« 

*••••• V^t REN AO T§0 

c 

VM1RENAOTOO 

c 

VMIRENAOOAO 

DO  toi  i«i*; 

0 

VHJR^NAOAIO 

101 

STRODE  <I.U)«STIAANA(l,R f  J)  1 

vnirenaooeo 

c 

VNIi»ENA0l»30 

c 

VNIRENACS49 

c  •  ** 

1  '“A  IRENAOtSO 

c«  •vnirenaooao 


C» 

CALCULATE  TANA  VOLUMC/MASS 

c« 

•vmirekaooro 

c«»» 

•••••VMIRPNAOORO 

c 

VAfRENAOROO 

c 

VMI&ENA0910 

•0 

TO  »10?,10?.105»lOfJ,A<J) 

VHIRENAC*v?0 

c 

VNIRENA0R30 

c 

VNIRENAOOAO 

c«*« 

c« 

•VHTRENA0060 

c» 

R3S  LIQUID  STORAGE  (300  A) 

•VNIRENAOOTO 

c« 

•VMIRENAOOAO 

c*»« 

***** 

c 

VMIRFNA) 000 

c 

VASIRENA1010 

10? 

,0-O.n?m-0B»R0  >••(!.  0/1.66*98)  ) 

vnirehaiojo 

^4 

♦T3A01F-C0*: ,?S*OC ' I ,00003 

VMIRENA1030 

HR#S«*. »OOR8EOA*MIRFNA/<A.7*79TE*05*:/RC-l.T9UOE-Ol  AR) 

VNtRENAlOAO 

Mni'(»S«l?.S19**AF*NR0S 

VMIRFNA1090 

♦  0.‘»0A*AI*(AE*HR«S)«*(?.  0/3.0) 

VMIRENAI06O 

VTTRRSr J .ERt03C-0?*AE»MR6S 

VNIAENAIOTO 

•C 

0  J 1 03, 1 94 1 , A  ( J ) 

VNIRENA10A0 

103 

*V7 

•>t.|T?0O*HIREWA 

VM IRENA  1 OOO 

- 

•  4.o5493E^96*R0*!«JREN* 

VMIRENAJ 100 

- 

♦0,;oOAfcE'Or«NIRENi  ><(*,b/3,0) 

VNIRENmHIO 

MNTMl.lTVOO'HlREM 

VNIRENAllEO 

- 

*0,)«SR-Y  “MRFNA*«(?, 0/3.0. 

VNIRENA1 ISO 

NTAN*«LTANE*AM<U.)  , '.»T ,NNT  1  ♦NT'ESS 

VMIRENA11A0 

VTANK«YTANAvT,S*09YE-04*M!AENAyVTTR®S 

VNIRENA 1150 

RET  IRN 

VMIRENA1 If 0 

10A 

MVT 

• ,1SS00*HIRENA 

VNJRENA1 1T0 

- 

♦6.70330£-0§*AO*M!RrNA 

VM1RENAJ1R0 

* 

♦  0,lT01SA«HnENA»«(t,  0/3,01 

vmirenauro 

appendix  r  chemical  laser  analysis  program  <claR) 

SUBROUTINE  VMJR't <t,\  OVERLAY  SCS  PAOC  E-40 

MMT«1 . ioGOO'NIRFNA  VMlRFNAl tOO 

-  »0 >41?TOO«MIRFX*»»<?, 0/3.0)  VMlRFNAltlO 

NTANK»NTANK«AMAX1 (MVT.MMT) *nttpgs  VN I RFNA i  tto 

VTANK»VTAN«  >7 .5909TE -04«M| RFNA* VTTP6S  VMIRFNA123Q 

RETURN  VKlRFNAltAO 

C  VMlRFNAltSO 

C  vmirfhai too 

. . ••••••• . 

C*  •VMlRFNAltGfl 

C*  PF5  LIQUID  STORAGE  (300  K)  »VMtRFNA 1 f 00 

C*  • VMI RFNA 1 300 

CtMtMMttMMIMMMtMMIttMMMHtMMMUMMiMMHtMMtMtMMtVHIRrUAJJie 
C  VMlRFNAl 3f0 

C  VMlRFNAl 330 

103  MTANMaNTANK*l.lTTOO»NlRFNA  VMlRFNAl 340 

-  ♦O.2S322O*NIRFNA«»<i.O/3.05  VMlRFNAl 330 

-  *4. U*3AE-09«P0*N!RFNA  VMlRFNAl 300 

♦  1 .50?09E-04*  <P0*M I RFNA/RTI ME >••(!, 0/3*01  VMlRFNAl 370 

-  *1.36850E-02»(RO«M1RFNA/RTIME)**(1. 0/3.0)  VMIRFNA1300 

VTANKaVTANK«T.S909TE-04*MIRFN»  VMlRFNAl 309 

-  *4.tnotE-lt»P0»MlRFNA  VMIRFNA1400 

-  «0.00900C-00*(PO*MIRFNA/RTlME)a*(t. 0/3.0)  VMIRrNAlAlO 

-  ♦R.03070t-00»(PO«M1RFNA/RTIM|)4*(1.0/3.0)  VMIRFNA1470 

RETURN  VM1RFNA1430 

100  MTANK«MTANK«1.133004MIRFNA  VMIRFNA1440 

-  ♦0.33040i*MIRFNA*« (t.0/3.0 )  VMIRFNA1450 

-  *4.1 1338E-09*P0»MIRFNA  VM1RFNA1400 

-  •1.30?09C-04»(PO*MIRFNA/RTIME)**, t.0/3.0)  VM1RFNA1470 

-  ♦ 1 . 36iS0E-0t* (PO*NIRFNA/RTINE) ••(l.O/'i.O)  VMJRFNA1480 

VTAN«aVTANK*7.59097E-04*MlRFNA  VNIRFNAJ490 

-  ♦4.tU9tE-lf4R0*MIRFNA  VMIRFNA1S00 

-  *9.86980E“08* (PO*MIRFNA/RTIMt ) •• ( ?,0/3{ 0*  VMIRFNA 151 0 

•  •8.03079E*OO«(P0*MlRFNA/RTIMC)4*ll.0/3  0)  VMIRFNAlStO 

END  VNIRFNA1530 
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APPENDIX  l  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  VMMMH  OVERLAY 

scs 

PAGE 

E-47 

SUBROUTINE  VMMMH (J.MMMH.Po.RTIME ,MTANK. VTANK) 

VMMMH 

0100 

c 

VMMMH 

0110 

c 

VNNNK 

01*0 

c*» 

#••4 

•••VMMMH 

0130 

c* 

•VMMMH 

0140 

c* 

MMN  TANK  VOLUMF/Mxss  SUBROUTINE  (VMMMH) 

•VMMMH 

01S0 

c« 

•VMMMH 

0  J  40 

c«» 

•  ••< 

•••VMMMH 

01  TO 

c 

VMMMH 

0100 

c»* 

•  •#4 

•••VMMMH 

0100 

c» 

•  VMMMH 

ozoo 

c» 

SUSROUTINE  VMMMH  CALCULATES  THE  TANK  VOLUNE/MASS  EOR 

THE 

STORAGE 

•VMMMH 

0*10 

c* 

OE  MCNOMETHYL  HYDRAZINE  (CH6N*). 

•VMMMH 

0**0 

c* 

•VMMMH 

0*30 

e* 

MMH  MAY  Rf  STORCO  ANY  OE  FOUR  MAYS  I 

•VMMMH 

0*40 

c» 

•VMMMH 

0*90 

c» 

»  1  ? 

3 

4 

•VMMMH 

0*00 

c» 

PHASE  LIO  LIO 

LIO 

ito 

•  VMMMH 

0*70 

c« 

CONT  SPN  CYL 

SPh 

CYL 

•VMMMH 

o*so 

c* 

STEMP  300.0  K  300.0  K 

30b. 0  K 

300 

.0  K 

•VMMMH 

0*90 

c« 

STIME  infinite  infinite 

INF INITE 

INFINITE 

•VMMMH 

0300 

c« 

SPRES  1 ,?5*PC  l.?S*P& 

1  ATM 

1  ATM 

•VMMMH 

0310 

c« 

RFSVS  PGS  POS 

PFS 

PFS 

•VMMMH 

03*0 

c« 

HATER  TI  Tl 

AL 

AL 

•VMMMH 

0330 

c« 

•VMMMH 

0340 

c* 

INPUT  VARIABLES) 

•VMMMH 

0390 

c* 

•VMMMH 

0340 

c« 

J  «  STORAGE  MOOE  CONTROL  VARIABLE 

•VMMMH 

0370 

c« 

K  ■  STORAGE  MODE  CONTROL  ARRAY 

•VMMMH 

03R0 

c* 

MMMH  .  total  OELIVEREO  MASS  OF  MMH  t KG) 

•VMMMH 

0390 

c« 

PO  ■  COMBUSTOR  OR  NOZZLE  STAGNATION  PRESSURE  (PA) 

•VMMMH 

0400 

c« 

RTINE  •  RUN  TIME  IS) 

•VMMMH 

0410 

c« 

•VMMMH 

04*0 

c* 

OUTPUT  VARIABLES: 

•VMMMH 

0430 

c* 

•VMMMH 

0440 

c« 

MTANK  ■  TANK  MASS  (KG) 

•VMMMH 

0430 

c* 

STMMH  ■  STORAGE  MOOE  DESCRIPTOR  OATA 

ARRAY 

•  VMMMH 

0400 

c* 

STRODE  -  STORAGE  MODE  DESCRIPTOR  ARRAY 

•VMMMH 

0470 

c« 

VTANK  ■  TANK  VOLUME  (M31 

•VMMMH 

0400 

c* 

•VMMMH 

0490 

>•••< 

•••VMMMH 

0300 

c 

VMMMH 

0310 

c 

VMMMH 

03*0 

IMPLICIT  REAL(M) 

VMMMH 

0330 

c 

VMMMH 

0340 

COMMON/SCSA/K (10) 

VMMMH 

0550 

c 

VMMMH 

0560 

C0MM0N/SCS5/STM00E (10.10) 

VMMMH 

0370 

c 

VMMMH 

osao 

COMMON/SCSI 4/STMMH ()0.4) 

VMMMH 

0390 

c 

VMMMH 

0600 

OATA  < (STMMH <I,K).Kal.4). 1*1. 101/ 

VMMMH 

0610 

-10HMHH  • 1 OMNMH  . 1 0HMMH 

• ) OMNMH 

t 

VMMMH 

06*0 

-10HLIO  tICHLIQ  .10HLIO 

.10NLIO 

• 

VMMMH 

0630 

-I0HSPH  . 1 OHCYL  . 1 OHSPH 

.1 OHCYL 

• 

VMMMH 

0640 

\ 


r  cnfm tc*L  i aser  analysis  pro«ram  iclipi 


SUBROUTINE  VMMMH  OVERLAY  SCS 

PAOC 

r**t 

-10M300.0  *  .IONIOO.0  *  ,10X300.0  K  .lONJOO.O  0 

• 

VHMMH 

0600 

-lOMlNfJMTr  .lOMINEIMTf  .lOMlNElNITC  .IOHJNEINitE 

* 

VHHMH 

0660 

—  1  OH  . 1  OH  ,10H  ,10H 

• 

VHMMH 

0670 

-10H1.?*»P0  ,10Hl.?«.»Po  . 1  OH  1  ATI*  .10*1  »TH 

• 

VMHHH 

0660 

• 1  OH  ,VOH  ,10H  ,\0H 

• 

VMMHH 

0690 

-iohp«s  •  iohpc.s  , iohres  .iohpeo 

t 

VHMMH 

0700 

-10HT!  . 10*71  ,  JOMAL  ,  )0H U 

/ 

VMMMM 

0710 

C 

VMMMM 

ov?o 

c 

VMMMH 

0730 

e»«« 

•  •1 

>»••• 

►•••VMMMM 

07*0 

c» 

•VMMMH 

0700 

c* 

SET  STORAOE  HOOF  0ESCP1PT0R  ARRAY 

•VMMMM 

0760 

c* 

•VMMMH 

0770 

c»*« 

>♦*♦♦< 

»••• VMMMH 

07R0 

c 

VMMMM 

0  790 

c 

VMMMH 

(>•00 

00  )01  1*1.10 

VMMMH 

0610 

101 

STMOOE ( 1 , J)*STHHH (1 ,M J|) 

VMMMH 

06?0 

c 

VMMMH 

0630 

c 

VMMMH 

06*0 

c**« 

•  •1 

►•••VMMMH 

0600 

c* 

•VMMMH 

0060 

f* 

CALCULATE  T AH*  VOLUNE/NASS 

•VMMMH 

0R70 

c* 

♦VMMMH 

0000 

r»»i 

•  •••< 

oaao 

c 

VMMMH 

0900 

c 

VMMMH 

0910 

00  TO  <10?.10?,100,106),*<J| 

VMMMH 

09?0 

c 

VMMMH 

0930 

c 

VMMMH 

0940 

c*«« 

>••••< 

••••VMMMM 

0900 

c» 

•VMMMM 

0960 

c* 

P6S  LI0U10  ST0RA6E  1300  *1 

•VMMMH 

0970 

c* 

•VMMMH 

0960 

c*«* 

>♦♦♦♦< 

►•••VMMMH 

0990 

c 

VNHHH 

ioao 

c 

VMMMH 

1010 

10? 

AE» 1. 0/ 1 1. 0- 1 3. 17?TOE-Oa»P0>»« (1.0/1.66*96)) 

VMMMH 

10?0 

?•*, 7366 1E-09*1.?0*PO«1 .00003 

VMMMH 

1030 

HPaS»l.?SasaE-03»MMMM/<4.7*T97E.05»7/P0-l.TOl*6E-0?«AE| 

VMMMH 

10*0 

MTTPaS»l?,N19**AE*MP8S 

VMMMH 

iooo 

-  «0.90*6*?a(AE*MPaS)**<?.0/3.0l 

VMMMH 

1060 

V TTROS* 1.00 1 03C“0?*AF*HP0S 

VMMMH 

1070 

•0  TO  {103,10*1 ,K(Jt 

VMMMH 

1060 

103 

**V  T*1,1TT0  0  *HHHH 

VMMMH 

1090 

-  *?.*3051E  A*-P0*HHHH 

VMMMH 

1100 

-  «0.1?10*1  *••<?. 0/3.0) 

VMMMH 

1110 

**HT« \.l  7700*6  * 

VMMMH 

11?0 

-  ♦0,?0(.759*mhhh**  (?, 0/3,0) 

VMMMH 

1130 

HT  ANO*HT  ANK* AMAX 1 (MVT.NMT) .MTTP8S 

VMMMH 

11*0 

VTANK*VTANK*1 . 36***E>03*MMMH«VTTPaS 

VMMMH 

1100 

RETURN 

VMMMH 

1160 

10* 

HVT«1 . iS500*MMMH 

VMMMH 

1170 

-  *3.??306C-Oa*PO*NHHH 

VMMMH 

1100 

-  ♦O.?o7*30*HNNN**i?. 0/3.0) 

VMMMH 

1190 

212 


ouuuuuoou 


CHf  X]  CAL  L*SfR  ANAL  VS  I  S  PROfiRAN  (CLAP) 
OVERLAY  SCS 


»ppendi*  r 

SUBROUTINE  VXXXH 


PAOC  E-49 


NXT«1  .USOO^XXHH  VXXXH 

-  *0.8672884HNXH»*(2.0/3.0I  VNNNH 

NTANK-NTANK.AHAXl ( XV T , XXT 1 .XT TPOS  VNMMH 

VTANK»VT«.nK«  1 . 3B44*E-0  J»HNXH.VTTP«5  VXXXH 

RETURN  VXXXH 

VXXXH 

VXXXH 

••••••••••••••••••••••••••••••••••■•••••••••I. •••••••••••• •••••••••••• VXXXH 

• VXXXH 

PES  LIQUID  STORAGE  1)0(1  K)  •VXXXH 

•VXXXH 

••••••••••••••••••••••••••••••••••••••••••••»4t •••••••••••••••••••••••VXXXH 

VXXXH 

VXXXH 

185  XTANK«XTANX4l,177rt0*XXXH  VXXXH 

-  *0.3T8001»NNNH*«(?. 0/3.0)  VMXXH 

-  *T.5058lE-09»P04NNNH  VXXXH 

-  *2.33269E-04*tP/'«XNNN/RTINE>  ••  (,>.0/3.0)  VXXXH 

-  *1 .66956E-02* (Pn«NNNH/RTIXE> •• (1 . 0/3.0)  VXXXH 

V7 ANKa V7 ANK . 1 , 38444E-0 )»HHXN  VXXXH 

-  *7  6816RE-1 2»Pn»NXXH  VXXXH 

-  4l.A733lE-07«(P0»XXXH/»7IXE)«*|?. 0/3.0)  VXXXH 

-  4l.05*A9E-05»(P0»XXXH/R7IXE)»*U. 0/3.0)  VXXXH 

RETURN  VXXXH 

08  HTANK«NTANK*1.15S00»NNmh  VXXXH 

-  40. 835161»XXXH««(J. 0/3.0)  VXXXH 

-  .7 .5056lE-09«P0*XXXH  VXXXH 

-  42. 33269E-0««(P0*XXXH/87IXE>**<?, 0/3,0)  VXXXH 

-  *1.66956E-02«(P0»NNNH/RTINE>**(1. 0/3.0)  VXXXH 

VTANK«VTAN5*1 . 38AAAE -0 3*XXXH  VXXXH 

-  47.o8188E-12«P0«XHHH  VXXXH 

-  4l.4733lE-O7»(PO«XXXH/RTIXC)«*C2.0/3.0)  VXXXH 

-  *1.0544 RE “05» (P0*XXXH/R7 I XE ) •• (1. 0/3.0)  VXXXH 

END  VXXXH 


200 
210 
220 
230 
240 
250 
28  0 
?  0 
2,>0 
2R0 
300 
310 
320 
330 
340 
350 
360 
370 
380 
3R0 
400 
410 
420 
430 
440 
450 
460 
470 
480 
1490 
[500 
1510 
1520 
1530 
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APPENOIX  F 
SUBROUTINE  VMNF3 


chemical  laser  analysis  program  (Clapi 

OVEPLAY  SCS 


PAUL  E-50 


SURPOUTINF  VMNF3(J,MHF,MNF3,P0*NTANK,VTANK)  VMNF3  0100 

C  VMNF3  0110 

C  VMNF3  0120 

C*  *VMNF3  01*0 

C*  NF3  TANK  VOLUME/MASS  SUBROUTINE  (VNNF3)  *VMNF3  0150 

C*  *VMNF3  0160 

C  VMNF3  0180 

. . . . .  01  90 

C*  *VNNF3  0200 

C*  SUBROUTINE  VMNF3  CALCULATES  THE  TANK  VOLUMF/MASS  FOP  THE  STORAGE  *VMNF3  0210 

C*  OF  NFS,  *VMNF3  0220 

C*  »WMNF3  0230 

C*  NFS  may  BF  STOREO  ANY  OF  FOUR  WAYS!  HOWEVER,  WHEN  STORED  AS  A  GAS,  *VMNF3  02*0 

C«  NF3  IS  STOREO  WITH  HF  AS  A  GAS  MIXTURE  AT  A  PARTIAL  PRESSURE  *VMNF3  0250 

C*  PNF3  a  1 ,2*106F*07  PA  <1800  PSIA)  PROVIDED  HE  IS  PRESENT  IN  THE  «VMNF3  0260 

C*  SYSTEM:  «VMNF3  0270 

C*  *VNNF3  0280 

C*  K  1  ?  3  «  *VMNF3  0290 

C*  PHASE  GAS  GAS  LIO  LIO  *VMNF3  0300 

C*  CONT  SPH  CYL  SPH  SPH  *VMNF3  0310 

C*  STEMP  300.0  K  300.0  K  77,  '  K  77.5  K  »VMNF3  0320 

C •  STIME  INFINITE  INFINITE  8.6E,05  S  ].6E»07  S  *VHNF3  0330 

O  (10  DAY)  (180  DAY)  *VMNF3  03*0 

C«  SPRFS  1 ,2E*07  PA  1.2EOT  PA  1.25*P0  1.25*P0  »VMNF3  0330 

C*  (1B00  PSD  ( 1800  PS1)  »VMNF3  0360 

C*  RF5YS  BLD  BLO  PGS  PGS  *VMNF3  0370 

C«  MATFR  SS  SS  SS  SS  *VMNF3  0380 

C*  «VMNF3  0390 

C*  INPU7  VARIABLES:  *VMNF3  0*00 

C*  »VMNF3  0*10 

C*  J  ■  STORAGE  NODE  CONTROL  VARIABLE  *VNNF3  0*20 

C*  K  ■  STORAGE  MODE  CONTROL  ARRAY  *VNNF3  0*30 

C»  MHE  *  TOTAL  DELIVERED  NASS  OF  HE  t KG)  «VMNF3  0**0 

C«  MNF3  ■  TOTAL  OELIVEREO  NASS  OF  NF3  fKG)  «VMNF3  0*50 

C*  PO  a  COMBUSTOR  OR  N077LE  STAGNATION  PRESSURE  IPA)  *VMNF3  0*60 

C*  *VMNF3  0*70 

C«  OUTPUT  VARIABLES:  *VMNF3  0*80 

C*  *VMNE3  0*90 

C«  HTANK  a  TANK  HASS  IKG1  *VMNF3  0500 

Ci  STHOOE  a  STOBAGE  MOOE  DESCRIPTOR  ARRA  v  *VMNF3  0510 

C*  STNF 3  *  STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  *VMNF3  0520 

c*  /TANK  a  TANK  VOLUME  IM3)  *VMNF3  0530 

C*  *VMNF3  05*0 

0550 

C  VMNF3  0566 

C  VMNF3  0570 

IMPLICIT  REAL(M)  VNNF3  0580 

C  VMNF3  0590 

COMMON /SCS* /K (10!  VMNF3  0600 

C  VRNF3  0610 

COMMON/SCS5/STMOOE(10»IO)  VNNF3  0620 

C  VMNF3  0630 

COMMON /SCS 15 /STNF 3 (10,*)  VMNF3  06*0 
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APPENDIX  r 
SUBROUTINE  VMNF3 


Chemical  laser  analysis  prograh  <clap> 

OVERLAY  SCS 


PAGE  E-51 


c 

VMNF3 

0650 

DATA  < (STNFStl.K) ,K»l,At . Ia 1.10) / 

VHNP3 

0660 

-10HNF3  « 1 OHNF  3  .10NNF3  , 10HNF3 

* 

VHNP3 

0670 

-10HGAS  *  I QMQAS  tlOHLtQ  tlQHLIU 

• 

VMNF3 

06BO 

-IONSPH  tlOHCYL  t 1 0N5PH  .IflMSPM 

• 

VMHF3 

0690 

-10H300.fi  K  9  1  0H300 . 0  K  9  1  <!H77 .5  K  .16H7T,5 

X 

• 

VMNF3 

0700 

-lOHTNFINiTE  .10HINF1NITF  9 1 0H8. 6E*05  S  ,19H).6E*0T  S 

• 

VHNF3 

0710 

-ION  9 1  OH  9lOH<10  0AY1  9 1  OH 1 1  BO 

DAY) 

• 

VMNF3 

07P0 

-1 OH) ,?F»07  PA9IOHI ,?E*07  PA,10H1.?S»PO  .1GH1.?5»P0 

• 

VHNFS 

0730 

- 1  OH ( 1 AOC  PSI ) 9 1  OH ( lflOO  PS I ) 9 1  OH  .10H 

• 

VMNF3 

07*0 

-10HBLO  9 1 OHRLD  9IOHPOS  9 1 OHPBS 

• 

VMMP3 

0750 

-10HSS  9IOHSS  , 1 OHSS  9IOHSS 

/ 

VHNF3 

0760 

c 

Vk'NFS 

0770 

c 

VMNF3 

OTGO 

£••• 

»••••* 

••••VHNFS 

0790 

C* 

•VHNE3 

OGOO 

c* 

SET  STORAGE  MODE  DESCRIPTOR  ARRAY 

•VHNF3 

OBIO 

o 

•VHNF3 

0B?0 

C«*« 

••••#< 

-••t*VHNF3 

0830 

c 

VHNF3 

08*0 

c 

VMNF3 

0850 

00  101  I  * 1 9 1 0 

VNNPS 

0860 

101 

5TN0DE(I.J>«STNF3<I.K<J) » 

VMNF3 

0870 

c 

VHNFS 

0880 

c 

VMNF3 

0690 

c*** 

•  *••* 

•••••VHNFS 

0900 

c» 

•VHNF3 

09)0 

c« 

CALCULATE  TANK  VOLUHE/HASS 

•VHNFS 

09?0 

c» 

•VNNF3 

0930 

c«*« 

►••••VHNFS 

09*0 

c 

VMNF3 

0950 

c 

VHNFS 

0960 

GO  TO  <10?»10?»106.105>.K»J) 

VMNF3 

07T0 

c 

VHNF3 

0960 

c 

VHNF3 

0990 

•  Hit 

»****VMNF3 

1000 

c* 

•VMNF3 

1010 

c» 

GAS  STORAGE  <300  K> 

•VMNF3 

10?0 

c* 

•VHNFS 

1030 

c*«« 

•  Hi* 

•••••VHNFS 

10*0 

c 

VHNF3 

1050 

c 

VHNFS 

1060 

10? 

IF (MKE,NF .0.0)  STHOOF ( 1  9  J)  »1 0MNF3/HE 

VHNFS 

1070 

XFNF3»l,0/tl.O*<T1.0019»NHE)/l*.00?6*NNFs>> 

VHNFS 

1080 

XFHE-1.0-XFNF3 

VHNFS 

1090 

PS»1.?4106E*07/XFNF3 

VHNFS 

1100 

PHE»PS-1 ,?*106E»07 

VHNFS 

1110 

MW»T1 «  00 19* (HHE/NNFS* 1 . 0 ) / ( XFHE/XFNF  3* l • 0 ) 

VHNFS 

ll?0 

0« (?.5009?*XFHE/XFNF3*6. 4**55) / ( 1 .50D9?*XFHr/XFNF3tB.***55> 

VHNFS 

1130 

?Hf»*.B1576r-09*PHE» 1.00053 

VHNFS 

11*0 

?«0,S5*XFNFS*?HE«XFHE 

VHNFS 

1150 

AF«J.0/(l,0-( 1 9?5#P0/PSI •• (1.0/8)) 

VMNF3 

1160 

HT0T-L»HHE*HNF3 

VHNFS 

1170 

IF(PS,CT,*,1 3685E»07)  WRITE  (B. ?01 )  <PS.U»I,9> 

VHNFS 

1180 

GO  TO ( 1 03. 1 0*) #X(J) 

VHNFS 

1190 

M  *  v 


APPENDIX  F  CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  VMNF3  OVEPLAY  SCS 

PAGE 

E-5? 

103 

HTAMK»MTANK* 1 .10210* ( 1  .0.6  7.S353*7/MI*)*AF«MTOTAL 

VMNF3 

1?00 

-  ♦2.*78S*E*05*<2*AF*MT0TAL/(PS*N*> )**(2.0/3.0> 

VMNF3 

l?10 

VTANK«VTANK*2.69759f *06*7*AF*MT0TAL/ (PS*MV) 

VMNF3 

1??0 

RETURN 

VMNF3 

1  ?30 

10* 

MTANK«MTANM1 .0*150*  ( 1 . 0*9 1 .  ?639*2/NP) *AF*MTOT AL 

VMNF3 

1?*0 

-  ♦5.47613E ♦05*<7*AF*MT0TAL/(PS*MW) >**<2,O/3.0> 

VMNF3 

1?80 

VTANK«VTANK*?.69759C*06*2*AF*MT0TAL/(PS*MV) 

VHNF3 

1?60 

RETURN 

VMNF3 

1  ?70 

C 

VMNF3 

1280 

C 

VMNF3 

1290 

c*** 

••••e* vmnF 3 

1300 

c* 

•VMNF3 

1310 

c* 

POS  LIOUIO  STORAGE  (TT.S  K) 

•VMNF3 

1320 

c* 

•VMNF3 

1330 

c«*« 

1 3*0 

c 

VMNF3 

1350 

c 

VMNF3 

1360 

105 

AF»1.0/(1.0-(3.17270E-08*PO)*»<1.0/1.61019)  ) 

VMNF  3 

1 3T0 

Z*  1 . 7*9P6f — 08*1 • ?5*P0  *  0 .999? 7 1 

VMNF3 

1380 

NPGS*7.19015C-03*MNF3/<1 .i»?656E*05*7/PO-6.76795E-03*AF) 

VMNF  3 

1390 

30  TO  (10G,107),K(J)-? 

VMNF  3 

1*00 

106 

MTTPGS»*.71 181*AF*MPGS 

VMNF  3 

1*10 

-  ♦?. 67*04*1 AF*MPGS) ••<2,0/3.01 

VMNF  3 

1*20 

-  *0 .?1 7 186* 1 AF*MPGS| ••(1.0/3. 0) 

VMNF  3 

1*30 

VTTPGS«7 . 1 0635E-03*AF*MPGS 

VMNF  3 

1**0 

-  ♦?. 76884E-03* 1 AF-MPGSI ••<?, 0/3.0) 

VMNF  3 

1*50 

-  *3.59605E-0**(AF*MPGS)**  <1.0/3. 0) 

VMNF3 

1*60 

MVT«l.i8700«MNr5 

VMNF  3 

1*T0 

-  ♦I.T0825E-08*PO*MNF3 

VMNF  3 

1*80 

-  ♦0.577111*MNF3**<2. 0/3.0) 

VMNF  3 

1*90 

-  *0 . J  0?863*MNF  3*«<1 .0/3.0) 

VMNF  3 

1500 

MMT.l,i«700*MNF3 

VMNF  3 

1510 

-  ♦0.7**061*MNF3**<2. 0/3.0) 

VMNF  3 

15?0 

*0 . i 0?863*MNF3** (1,0/3.01 

VMNF3 

1530 

MT ANK-HT ANK ♦ AMAX 1 (MVT ,MMT ) «MTTPGS 

VMNF3 

15*0 

VT  ANK"VT  ANK*  7 .9091 7E-04*MNF  3 

VMNF  3 

1550 

-  .6.50663E-0**MNF?»*<?,0/3.0> 

VMNF  3 

1560 

-  ♦  1.78*25E-0**MNF3*»U. 0/3.0) 

VMNF3 

1570 

.  *VTTPGS 

VMNF3 

1580 

RETURN 

VMNF3 

1590 

107 

MTTPGSa*.6176**AF*MPGS 

VMNF  3 

1600 

-  *5 .92067* ( AF*MP<55 )••(?, 0/3.0) 

VMNF  3 

1610 

-  ♦3.53850»( AF»MPGS| ••(l.O/S.Oi 

VMNF3 

1620 

VTTPGS«7 • 1 0635E-03*AF  *MPGS 

VMNF3 

1630 

♦1.38**?t-0?*<AF*MPOS)**<2, 0/3.0) 

VMNF3 

1640 

♦8. 9901 71-03* (AF*MPGS)**(1. 0/3,0) 

VMNF  3 

1650 

MVT»1  . 1  7700*MNf'3 

VMNF3 

1660 

-  *1.708?5k-08*P0*MNF3 

VMNF  3 

1670 

♦1 , 30537 *MNF3** (? .0/3.0) 

VMNF  3 

1680 

-  ♦l.$7589«MNF3**(l. 0/3.0) 

VNNF3 

1690 

MMT ■1,17700 *MNF  3 

VMNF3 

1700 

♦l.A?232*MNF3**<2, 0/3.0) 

VMNF  3 

1710 

-  *1.67589*MNF3*»(l .0/3,0) 

VMNF  3 

1  T?0 

MTANKaMTANK«AMAXl (MVT.MMT) ^HTTPaS 

VMNF  3 

1730 

VTANK«VTANK*T.90917E-0**MNF3 

VMNF  3 

17*0 

216 


APPENDIX  e 


CHEMICAL  LASER  ANALYSIS  PROARAM  (CLAP! 


SUBROUTINE  VMNE3  OVERLAY  SCS 

PAAE 

E-53 

-  ♦ 3, ?5S31E-03»MNFS»« ( ?, 0/3 . 0 ) 

VNNF3 

I TAO 

-  ♦4.46063E-03«NNE3»<M£.0/3,0» 

VNNP3 

1  7*0 

-  ♦VTTPGS 

VNWE3 

ITT# 

RETURN 

VMNE3 

1  TRO 

c 

VMNE3 

1TS0 

c 

VMNE3 

]  ROC 

c*»* 

1R10 

€• 

•  VNNE 3 

ISP* 

c« 

FORMAT  STATEMENTS 

•VNNE 3 

IPSO 

c« 

•VNNE3 

1  SAC 

c««* 

1 8S0 

c 

VMNF  3 

1  AM 

c 

VMNE3 

»«?0 

?01 

FORMAT ( • i • , T? * *N ARNINA I  STORABF  PRESSURE  POP  NFJ/HF 

Exceeds  a.issrvmnes 

IRAQ 

-SE»OT  PA  <M00  PSIAI»,R(/,T?#*PS  •••E13.S**  PA») ) 

VNNf  3 

1 ARO 

END 

VMNE3 

1«0« 

'Pfndi*  t 

SUBROUTINE  VMN? 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP» 
OVERLAY  SCS 
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c 

c 

c«* 

c« 

c* 

c* 

c»* 

c 

c»* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c« 

c» 

c* 

c* 

c» 

c« 

to 

c* 

c» 

c« 

c« 

c» 

c* 

c* 

c» 

c« 

c* 

c* 

c* 

c« 

c* 

c« 

c* 

c« 

c* 

c« 

c» 

c* 

c* 

c* 

CO 

c* 

c* 

c* 

c* 

c*« 

c 

c 


SUBROUTINE  VMN?( J,MN?.PO.PTIME,MTANK ,VTANK> 


N2  TANK  VOLUME /MASS  SUBROUTINE  (VMN2) 


SUBROUTINE  VMN?  CALCULATES  THE  TANK  VOLUMC/MASS  EOR  T*£  STOPABE 
Of  N ?. 


N2  MAY  BE  STORED  ANY  Of  EIGHT  VAYSl 


K 

PHASE 
CONT 
STEMP 
ST  »ME 

SPRES 

RE  SYS 
MATEP 

K 

PHASE 

CONT 

STEMP 

tTlME 

SPRES 
Rf  SYS 
MATER 


1 

GAS 

SPH 

300.0  K 
INFINITE 

A.IE*07  PA 
(6000  PSD 
BLO 
TI 

5 

Lia 

SPH 

77, S  K 
«.6E*05  S 
(10  DAY ) 

1  ATM 

PfS 

AL 


? 

GAS 

CYL 

300.0  K 
INFINITE 

4. 1E«C7  PA 
(6000  PSD 
BLO 
Tl 

6 

LIO 
SPH 
77. S  K 
1.6E-07  S 
(180  DAY) 

1  ATM 

PFS 

AL 


3 

LIO 

SPH 

7T.S  K 
8.67*05  3 
(10  OAY) 
1.25*P0 

PGS 

ss 

7 

LIO 
SPW 
77.5  K 
B.6E»05  S 
<10  DAY) 
1.25*P0 
MPS 

ss 


A 

Lie 

SPH 

77. S  K 
)  ,6E*07  S 
j 180  DAY) 
1.20*P0 

PGS 

SS 

8 

LIO 

SPH 

T7.5  K 
1.6E*07  S 
(ISO  DAY) 
1.25*P0 
MPS 

ss 


INPUT  VARIABLES! 


J  ■  STORAGE  MOOE  CONTROL  VARIABLE 

K  ■  STORAGE  MOOE  CONTROL  ARRAY 

MN2  ■  TOTAL  DELIVERED  MASS  OF  N2  (KG) 

PO  ■  COMBUSTOR  OR  NOZZLE  STAGNATION  PRESSURE  (PA) 

RTIME  ■  RUN  TIME  (S) 

OUTPUT  VARIABLES! 

MTANK  ■  TANK  MASS  (KOI 
STMODF  •  STORAGE  MODE  DESCRIPTOR  ARRAY 
STN2  •  STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY 
VTANK  •  TANK  VOLUME  (M3) 


VMN2 
VMN2 
VMN2 
*• VMN2 
•VMN? 

•  VMN? 

•  VMN2 
**VMM2 

VMN? 

►•VMN2 

•VMN? 

•VMN? 

•  VMN? 
•VMN? 

•  VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMN2 
•VMN2 
•VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMN2 
•VMN? 
•VMN? 
•VMN2 

•  VMN? 
•VMN2 
•VMN? 
•VMN? 
•VMN? 
•VMN? 
•VMM? 
•VMN2 
•VMN? 
•VMN? 

•vmn;> 

•VMN? 

•VMN2 

•VMN? 

•VMNZ 

•VMN2 

•VMN? 

•VMN? 

•VMN? 

•VMN? 

'••VMN? 

VMN? 

VMN? 


0100 

0110 

0120 

0130 

0)" 

'  •) 

(  • 
0,  ro 
0180 
0190 
0?00 
0219 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
03A0 
0350 
0360 
03T0 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
04S0 
0490 
0500 
0510 
05?0 
0530 
0540 
0550 
0569 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
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APPENDIX  f 
SUBPOUT  I Nr  VMN? 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP) 
OVERLAY  SCS 
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c 

c 

c 

c 


IMPLICIT  REAL(M) 

COMMON /SCS4/K(10) 

C0MM0N/SCS5/STM0DF (10.10) 

COMMON/SCS 1 6/STN? (10.8) 

DATA  (  (STN?(I.K)  ,K«1  .A)  .1*1.10)  / 

> 1 OHN?  ,10HN?  .10MN?  ,10MN?  , 

■lOHGAS  .10HOAS  .10HLI0  .10HLIQ  . 

•  1 OWSPM  .10HCYL  .10HSPH  .10HSPM  , 

■10H300.0  X  .10H300.0  K  »10H7T.,5  K  .10M77.5  K  . 

■lOMINFINITC  .10HINFINITE  .10H8.6E.05  S  .10M1.6E.07  S  , 

■  10M  .10H  .10M(10  DAY)  . 1  OH ( ISO  OAY )  , 

»I0M6,  ir«CT  PA.10HA.1F.07  P A , 1 0H1 . 25*P0  .10Ml.?5*PO  , 

■  10M(6000  PS  I )» 1  OH (6060  PSIl.lOH  .10H  . 

■  1 0H8L0  , 1 OHBLO  .10HPGS  .10HP0S  . 

•  1 OHT I  clOHTI  .10HSS  . 1 OHSS  / 

DATA  ( (STN2(I*K> »K«5»8) . Id, 10)/ 

■  1 OHN?  , 1 OHN?  . 1 OHN?  . 1 6NN?  • 

•10HLIO  .10HLIO  .10MLIO  .10MLIO  , 

dOHSPM  .10HSPH  .10HSPH  . 1 OMSPM  • 

d0M7T.K  K  .  1  0H77 .5  K  .10M77.5  K  .10H77.5  K  . 

dOH6.6E.08  S  ,10N1.6E*07  S  ,10M8.6E*05  S  ,10M1.6E«0T  S  , 

. 1  OH ( 1 0  DAY)  ,10H(1P0  DAY)  ,10M(10  DAY)  ,10H(180  DAY)  . 

•lOMi  ATM  . 1 0H1  ATM  ,16M1.?8*P0  .10M1.?5»P0  . 

dOH  .10H  »  1  OH  .  1  OH  • 

dOMPFS  .10HPFS  dOHHPS  ,  1 OHHPS  . 

•  1 OHAL  .10HAL  .10HSS  . 1 OHSS  / 


SET  STORAGE  NODE  DESCRIPTOR  ARRAY 


DO  101  I-l.IO 
STNOOE(I.J)-STN?d,K(J)  i 


■<>*•*••••••••••*•••*••••••••••••••••••' 

CALCULATE  TANK  VOLUME/MASS 


GO  TO  (102. 102, 105, 106, 106, 109,1 10.110). K(J) 


VMN? 

0680 

VMN? 

0660 

VMN? 

0670 

VMN? 

0680 

VMN? 

0600 

VMN? 

0700 

VMN? 

0710 

VMM? 

07?0 

VMN? 

0730 

VMN? 

07A0 

VMN? 

0750 

VMN? 

0760 

VMN2 

0770 

VMN? 

0760 

VMN? 

0700 

VMN? 

0600 

VMN? 

0810 

VMN? 

0820 

VMN? 

0630 

VMN2 

0640 

VMN? 

0650 

VMN? 

0860 

VMN? 

0870 

VMN? 

0660 

VMN? 

0690 

VMN? 

0900 

VMN? 

0910 

VMN? 

0920 

VMN? 

0930 

VMN2 

0940 

VMN? 

0950 

VMN? 

0960 

>»*VMN? 

0970 

•  VMN? 

0980 

•VMN? 

0990 

•  VMN? 

)000 

.••VMN? 

1010 

VMN? 

10?0 

VMN? 

1030 

VMN? 

1040 

VMN? 

1050 

VMN? 

1060 

VMN? 

1070 

•••VMN? 

1060 

•  VMN? 

1090 

•VMN? 

1100 

•VMN? 

1110 

•••VMN? 

11?0 

VMN? 

1130 

VMN? 

1140 

VMN? 

1150 

VMN? 

1160 

VMN? 

1170 

•••VMN? 

1180 

•VMN? 

1190 

APPENDIX  c 
SUBPOUT INC  VMN? 


CMENICAL  LASER  ANALYSIS  PROS® AH  (CLAP> 
OVCRLAY  SCS 


GAS  STORAGE  (300  K) 


AF«1.0/(1.0-(3.02162E-08*POI**<1.0/1.2TT25> ) 
00  TO  (103,104) 'K(J) 
HTANK»NTANK#2.89ZT4*AF*HN2 

.  ♦0,262599* ( AF*MN2) ••(2.0/3. 0) 

VTANK»VTANK42.94186E-03*AF«NN2 
RETURN 

NTANK«NTANKO.45605*AF«NN2 
-  *0. 580192*(AF*NNZ»»»(2. 0/3.0) 

VTANK»VTANtU2.941B6E-03»AF»HN2 
RETURN 


PAS  LIQUID  STORAAC  (77. 5  K> 


AF«l, 0/ ( 1. 0- (3. 1T2T0E-08«P0)«*( 1.0/1. 610191) 

Z«l. T4986E-08M.25*P0*0. 999271 

NP6S»1 ,36036E-OZ»NN2/(1.226S6E405*Z/<»0“6.T6795E-03»AF> 
60  TO  (lvS.107),K(J>-2 
NTTP6S-4 .71181 *AF*HP«S 

♦2. 67*5** (AF*HP8S1 ••(2,0/3.01 
♦0. 21 T1«6*(AC*NP«S»**(1. 0/3.0) 

VTTPASpT. 1 0635C-03*AF*HPAS 

♦2.76884E-03* ( AF*NP6S> •• (2*0/3. 0 ) 

♦3. S960SE-04«(AF»HP6S)**( 1.0/3.01 

HVT.l.j9593*HN2 

♦2.15464E-08»P0*NN? 

♦0.p*2013*HN2** (2.0/3.91 
♦0. 12T222«NN2*» (1.0/3.01 
HHT»1.19593*MN2 

♦1 • 138?0*NN2#* (2.0/3.01 
♦0.127?22*HN2**( 1.0/3. 01 
NT  ANK»NT  ANK ♦ AHAX l (HVT ,MHT 1 ♦HTTP8S 
WTANK»VTANK#1 ,49639C-03»HN2 

♦9.9S326C-04»MN2*«(2.0/3.0l 
♦Z.206T9E-04«MNZ*»( 1.0/3. 01 
♦VTTP6S 

Rc  turn 

HTTP«S»4 .61 T*4*AF«HP«5 

♦5. 92067* (AF*HPAS1 ••(2.0/3. 01 
♦3. 53850* (AF*HP6S>*«( 1.0/3. 01 
VTTP6$»7« 1 0635E«03*AF •NPAS 

♦1 .3844ZE-02* ( AF*NP8S) •• (2.0/3.C 1 
♦R. 9901 7E-03*(AF*NP8S)»*( 1,0/3.01 
HYT»l ,j  TTOO*NN2 
-  *2.15464E-08*P0»HN2 


PAOE  C-56 


•  VNNZ 

1200 

•VHN2 

1Z10 

►••VNNZ 

1220 

VNN2 

1230 

VNN2 

1240 

VNN2 

1250 

VNN2 

1260 

VNNZ 

1 ZTO 

VNN2 

1280 

VNNZ 

1290 

VNNf 

1300 

VNNZ 

1310 

VNN2 

1320 

VNNZ 

1330 

VNNZ 

1340 

VNNZ 

1350 

VNNZ 

1360 

‘••VNNZ 

1 370 

•VNNZ 

1380 

•  VNNZ 

1390 

•  VNNZ 

1400 

•••VNNZ 

1410 

VNNZ 

1420 

VNNZ 

1430 

VNNZ 

1440 

VNNZ 

1450 

VNN2 

1460 

VNNZ 

1470 

VNNZ 

1480 

VNNZ 

1490 

VNNZ 

1500 

VNN2 

1510 

VNNZ 

1520 

VNNZ 

1530 

VNNZ 

1540 

VNNZ 

1550 

VNNZ 

1560 

VNNZ 

15T0 

VNNZ 

1580 

VNN2 

1590 

VNNZ 

1600 

VNNZ 

1610 

VNN2 

1620 

VNNZ 

1630 

VNNZ 

1640 

VNNZ 

1650 

VNNZ 

1660 

VNNZ 

16T0 

VNN2 

1680 

VNNZ 

1690 

VNNZ 

1700 

VNNZ 

1710 

VNNZ 

1720 

VNNZ 

1730 

VNNZ 

1740 

220 


APPFNOIX  F  CHEMICAL  LASFR  ANALYSIS  PROGRAM  (CLAP) 


SUBROUTINE  VMN?  OVERLAY  scs 

PAGE 

IT 

1 

tu 

-  *1 .99684*MN?«*(?.0/Y.0) 

VNN? 

1750 

♦  ?.07?77»tlN2*«(l. 0/3.0) 

VMM? 

1760 

NMT-- 1,17  700*MN2 

VNN2 

1770 

-  ♦2.2S??3»MN?»»(?.0/3.C) 

7MN? 

1760 

-  ♦?.07?77*MN?«»(1. 0/3.0) 

VMN? 

1790 

MTANKbMTANK'AMAXI (MVT.MMT) .mttpos 

VMN? 

1800 

VT  ANKa VT  ANK ♦ 1 , 49639E  >0  3*MN? 

VMN? 

1610 

-  ♦4.97663£-03»MN2»»(?. 0/3.0) 

VMN? 

1 8?0 

-  ♦5.5|700E-03*MN?««(I .0/3.0 

VMN? 

1630 

-  ♦VTTPOS 

VMN? 

1640 

RETURN 

VMN? 

1650 

c 

VMN? 

1660 

c 

VMN? 

1670 

€••• 

I860 

c* 

•  VMN? 

1690 

c* 

PFS  LIOUIO  STORAGE  (77,6  K) 

•VMN? 

1900 

e* 

•VMN? 

1910 

1920 

c 

VMN? 

1934 

c 

VMN? 

1940 

1  OR 

MTANKaMTANK. J , 19593»MN? 

VMN? 

1950 

-  t|.}S344«MN?**(?, 0/3.0) 

VMN? 

1960 

♦0.1272??*MN?«*<1. 0/3.0) 

VMN? 

1970 

-  »8. 1 1?56E-09*PO»MN? 

VMN? 

1960 

-  *2. 4566 1E-04»(P0«MN?/RTIM£ )••(?. 0/3.0) 

VMN? 

1990 

-  *1. 71 340E-02*(PO»MN2/RTIME>»»(1. 0/3.0) 

VMN? 

2000 

VTANKaVTANK* 1 , 49639E-0 3»MN2 

VMN? 

?010 

-  <*9.953?6E-04«MN2**(?. 0/3.0) 

VMN2 

?0?0 

-  ♦2.?0679E-04*NN2«*(1. 0/3.0) 

VMN? 

2030 

*8.30?87E-1?*PO*MN? 

VMN? 

2040 

-  ♦ 1. 55 1 71^-07* (P0«MN2/RT1ME)»* (2. 0/3.0) 

VMN? 

?050 

♦1.0821 8E -05* (PO#MN?/RTIME) ••(), 0/3.0) 

VMN? 

2060 

RETURN 

VNN? 

tore 

109 

MT  ANKaMT ANK ♦ 1 . 1 7T00*MN? 

VMN? 

?  080 

♦?.26746*MN?»» (2.0/3, 0) 

VMN2 

?090 

♦2.07277*MN2#*( 1. 0/3,0) 

VMN? 

2100 

-  ♦8.U?56E-09PP0»MN2 

VMN2 

?110 

*2. A588lE"0A*(P0*MN2/RTIME )••(?. 0/3.0) 

VMN? 

?1?0 

-  ♦ 1 .7 1 3A0E-02* (P0*MN2/RTIMC) **(1. 0/3.0) 

VMN2 

2130 

VT  ANXa VT  ANK* 1 . 49639E-03*MN2 

VMN? 

2140 

-  ♦4.9T663E-03*MN?**(?. 0/3.0) 

VMN? 

2150 

-  *5.51 T00E«03*MN?»* ( 1 .0/3,0) 

VMN? 

2160 

-  »8, 30267E-1 ?*P0»MN2 

VNN? 

2170 

♦ 1. 551 TlE-07»(PO*MN2/BTlNE>«*(?. 0/3.0) 

VMN? 

2160 

-  ♦ 1. 0821 8E-C5»(P0*MN?/RTIME)»»( 1 .0/3.0) 

VMN? 

2190 

RETURN 

VMN? 

2200 

c 

VMN? 

?210 

c 

VMN? 

???0 

C**« 

??30 

c* 

•  VMN? 

2240 

c» 

MPS  LIOUIO  STORAGE  (77.5  8) 

•  VMN? 

2250 

c* 

•  VMN? 

??60 

c*  •« 

2270 

c 

VMN? 

??80 

c 

VMN? 

?290 

APPfNOl*  F  CMF*«1C41  LASFP  ANACTSIS  PP09PAM  (CLAP) 


SUPPOUTINF  VMN?  OVFPtAr  SC3 

PAOt 

E-90 

no 

PTTmPS»P,90  0  7SC-0#.«PO«MN?/«TIMF 

VMN? 

*300 

VTTMPS»6,90?6*t-0«»Pn»MN?/l»TlNF 

VMM* 

2310 

60  TO  (1|1.1I?)<K(J)>6 

y  mn* 

*3*0 

in 

*VT»1.!9443»NN? 

VMN* 

*330 

-  t?.  n*f«*e-oo»Po«Mtw? 

VMN* 

*340 

-  »0.AA*813»MN?»»  t*. 0/3.0) 

VMN? 

*390 

-  ♦0.1?T*?**MN*«»<1. 0/3,0) 

vmn* 

*300 

NMT«1.]9993»NN* 

vmn* 

*3T0 

-  ♦  1  • \30?0*MN2*« (2. 0/3,0 ) 

VMN* 

*300 

-  ♦0.1?T???«MN2«*(1. 0/3.0) 

vmn* 

*990 

MT ANKaMTANK.AMAX 1 (NVT ,NMT ) *MTTMPS 

vmn* 

*400 

VTANK»VTANK*1.49fc39e-03»MN2 

vmn* 

*410 

-  ♦9.993?6£-044MN*»«<*. 0/3.0 

VMM? 

*4*0 

-  ♦  *.?06?9F-04«NN*««n.  0/3.0) 

VMN? 

*430 

-  «VTTHPS 

VMN* 

*440 

petumn 

VMN* 

*490 

11? 

**WT«l.jTTOO»MN2 

vmn* 

*400 

-  ♦?.1A464F-08«PO»WNP 

vmn? 

*470 

-  ♦  1.99M4»MN2»»(2. 0/3.0) 

VMM? 

*400 

-  *f.9T*TT*MN?*«<l. 0/3.0) 

VMM* 

*490 

NMT«1.1TT00*MN2 

VMN* 

*900 

-  **.*9**3«MN2«*»2.  0/3.0) 

yMM* 

*910 

-  ♦?.0T?TT«>MH2«*n.  0/3.0) 

VMN* 

*9*0 

NTANKaMTANK'AMAM (MVT.HMT) *mttmps 

VMM* 

*930 

VTANK»VTANK*1  ,49639F-M*NN? 

VMN* 

*940 

-  «4,976A3E-03*NN***t2. 0/3.0) 

VMN* 

*990 

-  «9.51TonE-034NN2**  1 1 .0/3.  0) 

VMN* 

*900 

-  ♦VTTHPb 

VMN* 

*ST0 

ENft 

VMM* 

29S0 

APPFNOIX  F 


SUPPOUT I Nf  VMNfH* 

OVERLAY 

scs 

PAGE 

E-59 

SUBROUTINE  VMNfH* (J 

,  hn?ma, P«. RT I  Mr ,M TANK, VTANK) 

VHNfH* 

0100 

C 

VHNfH* 

0110 

C 

VHNfH* 

OlfO 

c«* 

••VHNfH* 

0130 

c^ 

•VHNfH* 

01*0 

c* 

NfM*  TANK 

VOLUME/MASS  SUBROUTINE  (VMNfH*) 

•VHNfH* 

0i50 

c* 

•VHNfH* 

0160 

c** 

••VHNfH* 

01  .^0 

c 

VHNfH* 

0 1  BO 

c«« 

••VHNfH* 

0190 

c« 

•VHNfH* 

0300 

c* 

SUBROUTINE  VHNfH*  CALCUL4TFS  THE  TANK 

VOLUHF /MASS 

FOR  THE  STORAGE 

•VHNfH* 

Of !  6 

c» 

or  honoppopfllant  mvopatinf  (N»hc). 

•VHNfH* 

OffO 

o 

•VHNfH* 

Of  30 

c* 

N?H*  HAY  PE  STORED  ANY  Of  FOUR  HAYS  I 

•VHNfH* 

0f*0 

o 

•VHNfH* 

0150 

c«* 

K  1 

? 

3 

4 

•VHNfH* 

0?60 

c« 

PHASE  uo 

CIO 

L 10 

IIQ 

•VHNfH* 

Of  TO 

c* 

CONT  SPH 

CYL 

SPH 

CYL 

•VHNfH* 

Of  60 

c* 

STEHP  300. 0  K 

300.0  K 

300,0  K 

300.0  K 

•VHNfH* 

Of  90 

c* 

stthe  ineinitf 

INFINITE 

INFINITE 

INFINITE 

•VHNfH* 

0300 

c« 

SPPES  l.?5«P0 

1  .?5»P0 

1  ATM 

I  ATM 

•VHNfH* 

0313 

c« 

prsvs  pgs 

PGS 

PFS 

PFS 

•VHNfH* 

03f  0 

c* 

HATTP  ti 

TI 

AL 

AL 

•VHNfH* 

0330 

r» 

•VMNfH* 

03*0 

c« 

INPUT  VARIABLES! 

•VHNfH* 

0350 

c« 

•VMNfH* 

0360 

c* 

J  a  STORAGE  MODE 

CONTROL  VARIABIF 

•VHNfH* 

0370 

c* 

K  ■  storage  MODE 

CONTROL  ARRAY 

•VMNfH* 

03R0 

c* 

MNfM*  ■  TOTAL  OElIVERED  HASS  OF  Nf HA 

JKG1 

•VMNfH* 

0390 

C*' 

PO  •  COHBUSTOR  OR 

N077LF  stagnation  pressure 

(PA  1 

•VHNfH* 

0*00 

c* 

RTIHE  a  RUN  TINE  (SI 

•VMNfH* 

0*10 

c* 

•VMNfH* 

0*f0 

c» 

OUTPUT  VARIABLES! 

•VHNfH* 

0*30 

c* 

•VHNfH* 

0**0 

c* 

HTANK  a  TANK  HASS  CKO] 

•VMNfH* 

0*50 

c* 

STNfM*  a  STORAGE  HODE 

OESCRIPTOH  OATA 

ARRAY 

•VMNfH* 

0*60 

c* 

VTANK  -  TANK  VOLUME 

IM3) 

•VHNfH* 

0*T0 

c* 

•VMNfH* 

0*R0 

c»* 

••uo******* 

••VHNfH* 

0«90 

c 

VMNfH* 

0500 

c 

VHNfH* 

0510 

IMPLICIT  REAL (HI 

VHNfH* 

05f  0 

COMMON/SCS*/K ( 10) 

COMHON/JCSS/STMODE (10,10) 

COMMON/SCS17/STNfH*(lO,*) 

OATH  i  (STNfH*(l.K) »K>1 .*) ,i»i,io;/ 
-lOHNfH*  » lOHNfH*  , 1 0HNFH4 

-10HLIQ  » 1 OHL IQ  , 10HLIO 

-10HSPH  , TOHCYL  , 10H5FN 

-lOMSOfl.O  K  »10H300.O  K  ,  1  0H30 0 , (!  K 


»  JOHNfM* 

, 1 OHLIO 
« 1 OHCYL 
,10M300.0  K 


VHNfH*  0538 
VHNfH*  09*0 
VHNfH*  0590 
VMNfH*  0500 
VMNfH*  0570 
VMNfH*  0550 
VHNfH*  0590 
VMNfH*  0600 
VHNfH*  0610 
VMNfH*  0670 
VHNfH*  0630 
VHNfH*  06*0 


a*-*':..  :-.-  _ 


L  *. >9 4  1 


APPENOI*  F  CmENICAl  LASER  ANALYSIS  PROORAN  (Cl*P> 


SURROUTINF  VMN?H*  OVC»l*Y  scs 

poos 

E-AO 

-10HINFINITF  «1 ON  INFINITE  « 1 ONINF I  Nl  T£  , | OMlNP INI TE 

0 

VNNfN* 

00*0 

-ION  • 1  ON  . 1  OH  • I  ON 

• 

VNNfN* 

06*0 

-I0N1.?S»P0  «10N1.?4«P0  « 1  CM  I  ATN  ,10H1  ATM 

• 

VMNJH4 

OOTO 

-ION  .ION  « 1  OH  « 1 OM 

• 

vnnjna 

0000 

-10NP0S  .10NPOS  < 1 UNPFS  .10NPFS 

• 

WMN?NA 

0090 

-10NTI  .10NTI  • 1 ONAL  .10HAL 

/ 

VNNfN* 

0700 

c 

VNNfN* 

0710 

c 

VNN?N* 

07f  0 

►••••• YNN?H4 

0730 

c« 

•VNNfN* 

07*0 

c* 

SET  STOPAOE  node  descriptor  array 

•VNNfN* 

07S0 

c« 

•VMN?H4 

07*0 

c •  ••< 

0770 

c 

VNNfN* 

0700 

c 

VNNfN* 

0790 

00  101  1*1.10 

VNNfN* 

0000 

ioi 

STRODE! I. J>*STN?NA<!.K(J) t 

VNN?H4 

0*10 

c 

VNNfN* 

ooto 

c 

VNNfN* 

0030 

c«**< 

00*0 

c* 

•VHN3N4 

0030 

c« 

CALCULATE  Tank  VOLUNE/MASS 

•VNNIN4 

0000 

c« 

*VNN?M4 

0070 

C#«CH 

0000 

c 

VNNZH4 

0090 

c 

VNNfN* 

0900 

«C  TO  <10?.10?.10S,10*1,K|J) 

VNNfN* 

0910 

c 

VNNfN* 

09f  0 

c 

VNNfN* 

0930 

09*0 

c* 

•VNNfN* 

0930 

c* 

POS  LIQUID  STORAOE  ! 300  Kl 

•VNNfN* 

0900 

c» 

•VNNfN* 

0970 

C*«» 

0900 

c 

VNNfN* 

0990 

c 

VNNfN* 

1000 

10? 

Ar«l.O/C1.0-(3.1T?TOF-O***P0)«*( 1.0/1 .60*9011 

VNNfN* 

1010 

l«*.73661E-0*M.?S»PO«1.000C3 

VNNfN* 

lOfO 

NP6S»1.0Ql??E-0?*MN?M*/i*.T4T9TE*05*E/PO-l.TOl46E-0?*A^» 

VNNfN* 

1030 

NTTPOS-1? ,319**AF*NR0S 

VNNfN* 

10*0 

-  «0 .90404?* ( AF*NR0S1 ••(?. 0/3.01 

VNNfN* 

1030 

VTTPOS-J .00103E-0?**? -NPSS 

VNNfN* 

1000 

00  TO  J103.104) . K ( J ) 

VNNfN* 

1070 

103 

NVT«l.l?700*NNfN* 

VNNfN* 

1000 

-  ♦?,l$T30E-0d*P0*NN?H4 

VNNfN* 

1090 

-  *0.11005§*NN?M4**(?. 0/3.0) 

VNNfN* 

1100 

NNT»1 • 1 T700*NN?H* 

VNNfN* 

1110 

-  ♦0.?33460*NN?H4** (? .0/3.0) 

VNNfN* 

11  to 

MTANK*MTANK.AMAX 1 (MVT.HMT) »MTTPSS 

VNNfN* 

1130 

VTANK*VTANK. 1 , ?0034E-03*MN?N4*VTTPSS 

VNNfN* 

11*0 

RETURN 

VNNfN* 

1150 

104 

NVT ■ 1 . 1 3300*NN?M* 

VNNfN* 

1100 

-  ♦?.T9440C-0i*P0*NN?HA 

VNNfN* 

1170 

-  ♦0.{*3163*NNfM***(?.0/3.01 

VNNfN* 

11*0 

NNT»1.13300*NN?N* 

VNNfN* 

11*0 
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CHEMICAL  LASEP  ANALYSIS  PROGRAM  (CLAP) 


SUftROUTlNF  VMN2M4  OVERLAY  scs 

PAGE 

C-61 

-  ♦0.313Rlt»MN2M*»«(2. 0/3.0) 

VNN2M4 

1200 

MTaMKbMTANK.AMAX l (MVT ,NMT) .MTTPOS 

VMN2H4 

1210 

vtana»vtank«i.?oo3ac-0  3»mn:'h**vttpos 

VNNJM4 

1220 

RETURN 

VNN2N4 

1230 

c 

VMN2H4 

1240 

c 

VNN2H4 

1250 

1260 

c* 

4VMN2H4 

12T0 

c» 

PFS  LIOUID  ST0RA3E  (300  K) 

•VNN2H4 

1 250 

c» 

•VHN2H4 

1290 

c«»* 

1300 

c 

VMN2H4 

1310 

c 

VNN2H4 

1320 

ios 

MTANK«MTANK»1 . 4TT00*MN?HA 

VHN2M4 

1330 

-  ♦  0.343T00«MN2H4«>4(2. 0/3.0) 

VNN2M4 

1340 

-  ♦6.50TS2E-09»P0*MN2M4 

VHNJH4 

1330 

-  ♦2.12101E-0»«(PO«^N*M4/RTtNt)«»(?.0/3.0) 

VNN2H4 

1360 

-  ♦ 1. 59?0 IE-02* (P0»NN2H4/RT INC >•• (1.0/3. 0) 

VMN2H4 

13T0 

VTANK«VT  ANK*  1 . 2003AE-03*NNJHA 

VMN2H4 

1300 

-  *6.66019E-12»B0«MN2H4 

VNN2H4 

1390 

-  ♦1.3?R62E-OT«(PO«t»N2NA/RTINE)**(2.0/3.0) 

VNNifHA 

1400 

-  ♦ 1. OOSS1C-OS* (P0»NN2HA/RT I NE )••(!. 0/3.0) 

VNN2N4 

1410 

RETURN 

VNN2M4 

1420 

106 

NTANKbMTANK*1 . 1SS00*NN2HA 

VHN2M4 

1430 

-  ♦O.TS93?6*NN2MA**(2. 0/3.0) 

VNN2M4 

1440 

-  •6.S0TS?E-09*P0»NN2H4 

VNN2M4 

1430 

-  ♦2.12101E-04* (P0*NN?H4/RT 1NE)»*(2. 0/3.0) 

VMN2M4 

1460 

-  ♦1.S9?01E-02<MPO*HN2M4/RT1ME )••(!. 0/3.0) 

VNN2H4 

1470 

VTaNKbVTANF.I ,20034E-03*NN2M4 

VMN2H4 

1460 

-  «6.66019E-12»P0*MN2H4 

VMN2M4 

1490 

-  *1 .33962E-07* (P0«MN2H4/RTIME) •• (2. 0/3.0) 

VNN2H4 

1500 

-  *1.  00351E-05*(PO»HN2H4/RT THE )••(!. 0/3.0) 

VHN2H4 

1510 

end 

VMN2M4 

1320 

Appendix  F.  NOMENCLATURE-OVERLAY  MAIN 


tWfNoii  f 


NOMENCLATURE 
OVERLA  '  MAIN 


PAGE  f-  1 


NOMENCLATURE  FOB  PROGRAM  MAIN 


AEXP  ■  DUMMY  NAMELIST  V  AB  I  ABLE 

ALBMA  ■  DUMMY  NAMELIST  VABIABLF 

ASA?  ■  OUMMY  NAMELIST  VABIABLF 

ATAfe  ■  DUMMY  NAMELIST  VABIABLF 

BBEBAC  a  OUMMY  NAMELIST  VABIABLF 

CANOLE  a  OUMMY  NAMELIST  VARIABLE 

CCS  ■  ALBmANUMEBIC  SYMBOL  0ESI6NATINS  THE  COMBUSTION  CNENISTBY 

SECTION 

CCS  I  a  DUMMY  BLOCK  COMMON  VABI ABLE 

CCS*  •  DUMMY  BLOCK  COMMON  VAB TABLE 

CCS  10  a  DUMMY  BLOCK  COMMON  VABIABLF 

CCS  1 3  •  OUMMY  BLOCK  COMMON  VABIABLF 

CCS  14  ■  OUMMY  BLOCK  COMMON  VAB I  ABLE 

CCSIS  ■  DUMMY  BLOCK  COMMON  VABIABLF 

CCSI6  a  OUMMY  BLOCK  common  VABIABLF 

CHOKE  ■  ALBMANUMEBIC  SYMBOL  DESIGNATING  CHOKFD  FLOW 

01  ■  OUMMY  NAMELIST  VABIABLF 

OlS  ■  DUMMY  NAMELIST  vabiable 

03  ■  OUMMY  NAMELIST  VABJABLE 

035  a  DUMMY  NAMELIST  VABIABLE 

FTA1?  a  OUMMY  NAMELIST  VABIABLE 

FAIL  a  FOBOB  FLAB 

FLOW  a  CHOKFD/SEP ABA TEO/SUBSON I C/SUPEBSON I C  FLOV  FLAG 
BS  a  DUMMY  NAMELIST  VABIABLE 

MNG  a  DUMMY  NAMELIST  VARIABLE 

LCAV  a  OUMMY  N^ML LIST  VARIABLE 

LOS  a  ALPHA  HUME  «'!■  SYMBOL  DESIGNATING  THE  LASER  OEVlCF  SECTION 

L0S1  a  I  3LC:K  COMMON  VARIABLE 

LPN07  a  0-..  *  /  IAMFLIST  VARIABLE 

LSNOZ  a  wKr*  NAMELIST  VARIABLE 

MBS  a  DUMMY  NAMELIST  VARIABLE 

NGANK  .  DUMMY  NAMELIST  variable 

NCJECT  a  DUMMY  NAMELIST  VARIABLE 

NO  a  ALPHANUMERIC  SYMBOL  DESIGNATING  A  NEGATIVE  RESPONSE 

NSPNOZ  a  DUMMY  NAMELIST  VARIABLE 

N1  a  DUMMY  NAMELIST  VARIABLE 

N?  a  DUMMY  NAMELIST  VARIABLE 

N3  a  DUMMY  NAMELIST  VARIABLE 

N«  a  DUMMY  NAMELIST  VARIABLE 

PKFRAC  a  OUMMY  NAMELIST  VARIABLE 

PBS  a  ALPHANUMERIC  SYMBOL  DESIGNATING  THE  PRFSSUBE  RECOVERY  SECTION 

PRS1  a  OUMMY  BLOCK  COMMON  VARIABLE 

P10  a  OL'HMY  NAMELIST  VABIABLE 

PNO  ■  OUMMY  NAMELIST  variable 

PT  a  OUMMY  NAMELIST  VARIABLE 

RECALL  a  ALPHANUMERIC  SYMBOL  FOB  AN  OVERLAY  RECALL  OPTION 
RTIME  a  DUMMY  NAMELIST  VARIABLE 

RUN  a  CONTROL  VARIABLE  TO  STOP  OR  RESTART  THE  PROGRAM 

SCS  a  ALPHANUMERIC  SYMBOL  DESIGNATING  TMlE  SYSTEM  CALCULATION  SECTION 

SCS4  a  DUMMY  BLOCK  COMMON  VARIABLE 

SETCCS  a  CONTROL  VARIABLE  TO  SET  DEFAULT  VALUES  IN  SUBROUTINE  INCCS 

SETLDS  a  CONTROL  VARIABLE  TO  SET  DEFAULT  VALUES  IN  SUBROUTINE  INLOS 
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SETPRS 

SETSCS 

T 10 

T30 

TSO 

TTO 

HP6 

WPP3 

NPR1 

WPP? 

WPR3 

WPR* 

WSR1 

WSR? 

W$R3 

YES 


nomenclature  p*se  f~  ? 

OVERLAY  MAIN 


■  CONTROL  VARIABLE  TO  SET  OEEAULT  VALUES  IN  SUBROUTINE  INPRS 
«  CONTROL  VARIABLE  TO  SET  DEFAULT  VALUES  IN  SUBROUTINE  INSCS 

■  DUMMY  NAMELIST  AR I  ABLE 

■  DUMMY  NAMEc:ST  VARIABLE 
.  OUMMY  NAMELIST  VARIABLE 
.  OUMMY  NAMELIST  VARIABLE 
.  OUMMY  NAMELIST  VARIABLE 
.  OUMMY  NAMELIST  VARIABLE 
A  DUMMY  NAMELIST  VARIABLE 

■  DUMMY  NAMELIST  VARIABLE 
.  DUMMY  NAMELIST  VARIABLE 
B  DUMMY  NAMELIST  VARIABLE 
s  DUMMY  NAMELIST  VARIABLE 
B  DUMMY  NAMELIST  VARIABLE 

B  DUMMY  NAMELIST  VARIABLE  „ 

B  ALPHANUMERIC  SYMBOL  DESI8NATING  A  POSITIVE  RESPONSE 
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ARBENO!*  r 


nomenclature 

OVERLAY  NAtN 


baoe  r-  i 


NOMENCLATURE  FOR  SUBROUTINE  OUTENB 


VARIABLE  DEFINITIONS  FOR  SUBROUTINE  0UTEN8  AHF  IDENTICAL  TO  THOSE  OIVEN 
FOR  SUBROUTINES  ouTccs,  OUTLOS.  OUTERS*  ANO  OUTSCS.  ONLY  THE  UNITS  have 
RFEN  CHANdEO  FROM  THt  SI  SYSTEH  TO  A  MUTURE  OF  EN8INFERTN8  UNITS. 
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appendix  r 


NOMENCLATURE 
OVERLAY  CCS 


PAOf  f-  * 


COMBUSTION  CHEMISTRY  SECTION  RENERAL  NOTATION  SCHEME 

va»u» Lfs  are  orriNfo  as  rollons  , 
prefix] 


v 

n  f 

x 

xf 

suffixj 

CP 
p« 
rp 
pr 

Sff 


•  HASS  PLOW  RATE 
■  HASS  FRACTION 

•  HOUR  FLO*  RATE 

•  note  fraction 


•  CAVITY  RROOUCV 

•  HIBBOR  PURQE 

•  PRIMARY  COMBUSTOR  PRODUCT 

•  PRIMARY  COMBUSTOR  REACTANT 

•  SECONDARY  REACTANT 


EXAMPLE  I  XFPp,  .  MOLE  FRACTION  OF  PR, MARY  COM«„*T0b  RR0DucT  , 
LASER  PRlRxRy  COMBUSTOR  REACTANTS  I 

ppj  :  wN1  M_Nf  ,c-*»  °-n?> 

PR1  m  N E 

PR^  ■  N-*)3  F-N* 

LASER  SECONDARY  RFACTANTSi 

IH?} 


SRI 

SRE 

SR3 


or 

HE 

N? 


LASER  PRIMARY  COMBUSTOR  PRODUCTSl 


RRl 

PPr 

PP3 

PP* 

PP5 

PR* 


•  CFa 

■  f? 

•  F 

■  NF  (OF, 

■  HE 

■  ne 


LASER  CAVITY  PRODUCTS] 


CPI 

CPE 

CPS 

CPA 

CPS 

CP* 


C  re 

NF 

DF 

HE 

N? 

0  ,M, 


NOTE]  REACTANTS  ANO  PRODUCTS  ARE  OFF rum  rna  •«. 

SPECIES  IN  PARENTHESIS  ARE  FW  £  C«SlSm.°  CHEMIST"Y’ 
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APPENOlX  F 


NOMENCLATURE 
OVERLAY  CCS 


PA6E  F-  5 


m 


\ 

E 

\ 


ALL  VARIABLES  NOT  FOLLOWING  THIS  SCHEMF  ARE  DEFINED  IN  THE 
NOHENCLATURE  FOR  THE  PROGRAM  OR  SUBROUTINE  WHERE  ThFV  APPEAR. 
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NOMENCLATURE 
OVERLAY  CCS 


PAGE  F 


6 


NOMENCLATURE  E0»  PROGRAM  CCS  ANO  SUBROUTINES  inccs,  outccs 


AEXP 

ALPHA 

ccssi 

ccss? 

OF 

DFORHF 


D?F 

P?F2 

FOAA 

ME 

H?F 

H?F? 

NO 

Ml 

N? 

N3 

N« 

OMEGA 

OMEGTRW 

PSIC 

PS1L 

PSILTRW 

0 

RC 

ROATE 

RL 

RLF 

SETCCS 

WCPTOT 

WCP1 

WCP2 

WCP3 

WCPA 

WCPS 

WCP6 

VFCP1 

WECP2 

WECP3 

WFCP  A 

WFCP*! 

WFCPG 

WEPP 1 


NOZZLE  bank  AREA  OF  THE  EXPERIMENTAL  DFVICE  [M?J 
FLUORINE  0 1 SSOC I AT  I ON  FRACTION 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OP  NOT  NEW  COMBUSTION 
CHEMISTRY  INPUTS  ARE  REQUIRED 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OR  NOT  INPUT  OATA  SHOULD 
8F  RF AO  FROM  TAPFl’ 

ALPHANUMERIC  SYMBOL  DESIGNATING  OF  LASER  CHEMISTRY 
CONTROL  VARIABLE  SUCH  THAT  i 
"OF"  FOR  OF  CHEMICAL  LASER 
«HF«  FOR  HE  CHEMICAL  LASER 

HEAT  OE  COMBUSTION  IJ/KMOLEJ  FOR  THE  REACTION 
D?  ♦  F  ■  DF  ♦  D 

HEAT  OF  COMBUSTION  t J/KMOLE I  FOR  THE  REACTION 
0?  ♦  F?  »  20E 

FREE  FLUORINE  FLUX  (KMOLE/S-M?) 

ALPHANUMERIC  SYMBOL  DESIGNATING  HF  LASER  CHEMISTRY 
HEAT  OE  COMBUSTION  IJ/KMOLEJ  FOP  THE  REACTION 
HJ»  ♦  F  *  HF  ♦  H 

HEAT  OF  COMBUSTION  tJ/KMOld  FOR  THE  REACTION 
H?  ♦  F?  »  2HE 

ALPHANUMERIC  SYMBOL  DESIGNATING  A  NEGATIVE  RESPONSE 
NUMBER  OE  CARBON  ATOMS  IN  PRIMARY  COMBUSTOR  REACTANT  1 
NUMBER  OF  HYDROGEN  (DEUTERIUM)  ATOMS  IN  PRIMARY  COMBUSTOR 
REACT  AWT  1 

NUMBER  OF  NITROGEN  ATOMS  IN  PRIMARY  COMBUSTOR  REACTANT  A 
NUMBER  OE  FLUORINE  ATOMS  IN  PRIMARY  TOHBUSTOR  REACTANT  A 
TOTAL  LASER  MOLAR  DILUENT  RATIO 
total  LASER  MOLAR  OILUENT  RATIO  (TRW  DEFINITION) 

MOLAR  COMBUSTOR  OILUENT  RATIO 
MOLAR  CAVITY  OILUENT  RATIO 

MOLAR  CAVITY  OILUENT  RATIO  (TRW  DEFINITION) 

MEAT  RELFASEO  PEP  KMOLE  OF  PRIMARY  COMBUSTOR  FLOW  BY  THE 

CHEMICAL  REACTION  OF  FLUORINE  IN  THE  LASER  CAVITY  IJ/KMOLE) 

MOLAR  COMBUSTOR  MIXTURE  RATIO 

ALPHANUMERIC  SYMBOL  FOR  THE  COMPUTER  RUN  DATE 

MOLAR  CAVITY  MIXTURF  RATIO 

TOTAL  LASER  CAVITY  MIXTURE  RATIO 

CONTROL  VARIABLF  TO  SET  DEFAULT  VALUES 

TOTAL  CAVITY  PRODUCT  MASS  FLOW  RATE  IKG/SJ 

MASS  FLOW  NATE  OE  CAVITY  PROOUCT  !•  CF4  [KG/S) 

MASS  'LOW  RATE  OE  CAVITY  PRODUCT  2.  HF  [KG/S) 

MASS  ELOU  RATE  OF  CAVITY  PRODUCT  3.  DE  IKG/5) 

MASS  FLOW  RATE  OF  CAVITY  PROOUCT  A,  HF  [KO/SJ 

MASS  FLOW  RATE  OF  CAVITY  PROOUCT  St  N2  [KG/S) 

MASS  FLOW  RATE  OF  CAVITY  PRODUCT  6,  0  (H)  (KG/S) 

MASS  FRACTION  OF  CAVITY  PROOUCT  It  CEA 
MASS  FRACTION  OF  CAVITY  PROOUCT  2t  ME 
MASS  FRACTION  OF  CAVITY  PROOUCT  3t  OF 
MASS  FRACTION  OF  CAVITY  PROOUCT  At  ME 
MASS  FRACTION  OF  CAVITY  PROOUCT  St  N? 

MASS  FRACTION  OF  CAVITY  PROOUCT  6t  0  (H) 

mass  fraction  of  primary  combustor  product  i,  cfa 

; 
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APPFNOIX  F 


NOMENCL  *  TURF 
OVERLAY  CCS 


RAGE  f~  T 


*rPP2  ■  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  2,  F2 

*FPP3  ■  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  3.  F 

MFPP4  •  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  *,  MF  (OF) 

WFPPS  ■  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  S,  HE 

NFPP6  ■  mass  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  6,  N? 

*FPR1  ■  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  I,  C-Nl  H-N2 

(C-Nl  0-N2 ) 

*FPP2  •  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  2,  ME 

WFPR3  ■  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  3.  N? 

WFPR4  ■  MASS  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  4.  N-N3  F-N4 

NFSR 1  »  MASS  FRACTION  OF  SECONDARY  REACTANT  D2  (H2) 

NFSR2  -  MASS  FRACTION  OF  SECONOARY  REACTANT  ?,  HE 

*F5R3  -  MASS  FRACTION  OF  SECONOARY  REACTANT  3,  N2 

MPO  ■  MASS  FLO*  RATE  OF  MIRROR  PURSE  N2  tK<J/Sl 

WPONPP  ■  MIRROR  PUROE-TO-PRIMARY  COMBUSTOR  PRODUCT  MASS  FLO*  RATIO 
*PPTOT  ■  TOTAL  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  PRODUCTS  (KO/S) 
*PP1  «  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  I,  CF4  (KC/S) 

*PP2  ■  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  2,  F2  (KG/S) 

*PP3  ■  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  3,  F  (KG/S) 

MPP4  ■  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  4,  HF  (OF)  (KO/SI 

*PP5  •  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  S,  HE  (KG/S) 

WPPft  ■  MASS  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  6,  N2  (KO/S) 

*PRTOT  «  TOTAL  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  REACTANTS  IKO/SJ 
*PR 1  ■  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  REACTANT  i,  C-Nl  H-N2 

(C-Nl  0-N2)  ( KO/S 1 

*PR2  •  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  REACTANT  2,  HE  (KO/SI 

WPR3  ■  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  REACTANT  3.  N2  (KS/S) 

WPR4  -  MASS  FLO*  RATE  OF  PRIMARY  COMBUSTOR  RFACTANT  4.  N-Nl  F-N2 

(KO/SI 

MSRTOT  -  TOTAL  MASS  FLO*  RATE  OF  SECONOARY  REACTANTS  (KO/S) 

*SR1  ■  MASS  FLO*  RATE  OF  SECONDARY  REACTANT  1,  D2  (M?)  (KO/SI 

*SR2  «  MASS  FLO*  RATE  OF  SECONOARY  REACTANT  2,  HE  (KO/SI 

*SR3  »  MASS  FLO*  RATE  OF  SECONDARY  REACTANT  3,  N?  (KO/S) 

XCPTOT  «  TOTAL  MOLAR  FLO*  RATE  OF  CAVITY  PRODUCTS  (KMOLE/S) 

XCPl  ■  MOLAR  FLO*  RATE  OF  CAVITY  PRODUCT  1,  TF4  (KMOLE/S) 

XCP2  -  MOLAR  FLO*  RATE  OF  CAVITY  PROOUCT  2,  HF  (KMOLE/S) 

XCP3  ■  MOLAR  FLO*  RATE  OF  CAVITY  PROOUCT  3,  OF  (KMOLE/S) 

XCP4  »  MOLAR  FLO*  RATE  OF  CAVITY  PRODUCT  4,  HE  ( KMOLE/S 1 

XCPS  •  MOLAR  FLO*  RATE  OF  CAVITY  PRODUCT  5,  NS>  I KMOLE/S) 

XCP6  »  MOLAR  FLO*  RATE  OF  CAVITY  PRODUCT  6.  D  (H)  (KMOLE/S) 

XFCP1U)  -  MOLE  FRACTION  OF  CAVITY  PROOUCT  1,  CF4.  */ 0  MIRROR  PUR6E 

(2)  •  MOLE  FRACTION  OF  CAVITY  PRODUCT  1.  CF4,  *ITM  MIRROR  PURGE 

XFCP2«1)  -  MOLE  FRACTION  OF  CAVITY  PROOUCT  2,  HF,  */0  MIRROR  PURGE 

(2)  «  MOLC  FRACTION  OF  CAVITY  PRODUCT  2,  MF,  *ITh  MIRROR  PURGE 

XFCP30)  ■  MOLE  FRACTION  OF  CAVITY  PRODUCT  3,  OF,  W/O  MIRROR  PURGE 

(2)  ■  MOLE  FRACTION  OF  CAVITY  PROOUCT  3,  DF,  *ITM  MIRROR  PURGE 

XFCP4U)  ■  MOLE  FRACTION  OF  CAVITY  PROOUCT  4,  HE,  */0  MIRROR  PURGE 

(2)  ■  MOLE  FRACTION  OF  CAVITY  PRODUCT  4,  HE,  *ITm  MIRROR  PURGE 

XFCPS(l)  »  MOLE  FRACTION  OF  CAVITY  PROOUCT  5,  N2,  */0  MIRROR  PURGE 

(2)  •  MOLE  FRACTION  OF  CAVITY  PRODUCT  5,  N2,  *ITM  MIRROR  PURGE 

XFCP6(l>  •  MOLE  FRACTION  OF  CAVITY  PRODUCT  6,  D  (H),  */0  MIRROR  PURGE 

(2)  ■  MOLE  FRACTION  OF  CAVITY  PROOUCT  6,  D  (H) ,  *ITh  MIRROR  PURGE 

XFPP1  ■  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  1,  CF4 

XFPP2  >  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  2,  F2 

XFPP3  ■  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  3,  F 
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OVERLAY  CCS 


XFPP*  a  HOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  A ,  hF  (OFl 

XFPPS  a  MOLE  fraction  of  primary  combustor  prdduit  S,  he 

XFPP6  a  MOtr  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  ft,  N? 

XFPR 1  a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  1,  C-Nl  N-N2 

(C-Nl  D-N2) 

XFPR2  a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  ?,  ME 

XFPR3  a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  3,  N? 

XFPR4  a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  REACTANT  A,  N-N3  F-N* 

XFSR1  a  MOLF  FRACTION  OF  SECONDARY  REACTANT  J,  D?  (M2) 

XFSR2  a  MOLE  FRACTION  OF  SECONDARY  REACTANT  2.  HE 

XFSR3  a  MOLE  FRACTION  OF  SECONDARY  REACTANT  3,  N? 

XPPTOT  a  TOTAL  MOLAR  FLOP  RATE  OF  PRIMARY  COMBUSTOR  PRODUCTS  (KMOLt/S) 
XPPl  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  i,  CF*  IKMOLE/S) 

XPP2  a  molar  FLOP  PATE  OF  PRIMARY  COMBUSTOR  PRODUCT  ?,  F?  (KMOLE/S) 

XPP3  ■  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  J,  F  IKMOLE/S) 

XPP3TM  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  3,  F  IKMOLE/S), 

FOR  TOTAL  FLUORINE  DISSOCIATION 

XPPA  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  4,  HF  (OF) 

(KMOLE/S) 

XPPS  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  K,  HE  (KMOLE/S) 

XPP6  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PRODUCT  A,  N?  (KMOLE/S) 

XPRTOT  a  TOTAL  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  REACTANTS 
(KMOLE/S) 

XPR1  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  RFACTANT  ),  C-N)  H-N2 

(C-Nl  0-N2)  [KMOLE/S) 

XPR2  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PFACTANT  ?,  ME  [ KMOLE/S ) 

XPR3  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  PFACTANT  ■«,  N?  (KMOLE/S) 

XPR4  a  MOLAR  FLOW  RATE  OF  PRIMARY  COMBUSTOR  REACTANT  4,  N-Nl  F-N2 

(KMOLE/S] 

XSRTOT  a  TOTAL  MOLAR  FLOW  RATE  OF  SECONDARY  REACTANTS  (KMOLE/S) 

XSR1  a  MOLAR  FLOW  RATE  OF  SECONDARY  REACTANT  1,  02  (H?)  [KM0LE/S1 

XSR2  a  MOLAR  FLOW  RATE  OF  SECONDARY  REACTANT  ?,  ME  (KMOLE/S) 

XSR3  a  MOLAR  FLOW  RATE  OF  SECONDARY  REACTANT  3,  N2  (KMOLF/S) 

YES  a  ALPHANUMERIC  SYMBOL  OESIGNATIN0  A  POSITIVE  RESPONSE 
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APPFNOIX  F 


NOMENCLATURE 
OVERLAY  LOS 


PACE  r-  9 


LASER  OEVICE  SFCTION  GENERAL  NOTATION  SCHEMF 
VARIABLES  APE  OEFINEO  AS  FOLLOWS) 

A  s  AREA  PER  KMOLE/S  OF  PRIMARY  FLOW  CS-M2/KM0LF1 
0  I  DIAMETER  IMJ 
G  I  (GAMMA)  SPECIFIC  MEAT  RATIO 
M  I  MACH  NUMBER 

MW  I  MOLECULAR  WEIGHT  (KG/KMOLE] 

P  I  PRESSURE  f  PA  1 
R  «  DENSITY  IKG/MJJ 
RE  I  REYNOLDS  NUMBER 
T  i  TEMPERATURE  C K ) 

W  I  MASS  FLOW  RATE  tKG/Sl 
A  I  MOLAR  FLOW  RATE  (KMOLE/SI 

REPEATCO  LETTERS  INDICATE  RATIOS. 

EXAMPLE)  W6W?aW6/W2 

VARIABLES  ARE  DESIGNATED  AS  TO  LOCATION  BY  THE  FOLLOWING) 

POINT  1)  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  CN  TME  NOZZLE 
STAGNATION  (COMBUSTOR)  TEMPERATURE 
POINT  2)  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE 
EXIT  TEMPERATURE 

POINT  3)  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  B  5ED  ON  THE  NOZZLE 
STAGNATION  (COMBUSTOR)  TEMPERATURE 
POINT  A )  SECONDARY  NOZZLE  EXIT  -  CONDITION*  BASED  ON  THE  NOZZLE 
EXIT  TEMPERATURE 

POINT  5)  FXIT  OF  THE  CONSTANT-AREA  MIXING  REGION 

POINT  6)  EXIT  OF  THE  ISENTROPIC  EXPANSION  REGION 

POINT  T)  MIRROR  PURSE  CONDITIONS 

POINT  G>  LASER  CAVITY  EXIT 

EXAMPLr •  MWG  *  MOLECULAR  WEIGHT  AT  THE  CAVITY  EXIT 

F)  LATES  "EFEECTI"EH  CONDITIONS 

G)  INDICATES  "GEOMETRIC*  CONDITIONS 
S)  INDICATES  CONDITIONS 

0)  INDICATES  STAGNATION  CONDITIONS 

EXAMPLE)  AIAjSG  ■  A/A*  AT  THE  PRIMARY  NOZZLE  EXIT  BASED  ON  THE  NOZZLE 
GEOMETRY 

NOTE)  ALL  VARIABLES  NOT  FOLLOWING  THIS  SCHEME  ARE  DEFINFD  IN  THE 
NOMENCLATURE  FOP  THE  PROGRAM  OR  SUBROUTINE  WHERE  THEY  APPEAR. 
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appendix  f  nomenclature  pabe  e-io 

OVERLAY  LOS 


NCMrNCLAljRf  FOR  PROGRAM  LOS  AMO  SURROUTlNFS  INLOS,  OUTLDS 


A  ■  VISCOSITY  COEFFICIENT  ( AL08 IN-S/N? I / ALOO (K ) ) 

R  •  VISCOSITY  COEFFICIENT  t  ALOG (N-S/M?) I 

RRFRAC  -  NOZZLE  BANK  RELIEF  FRACTION 

CANOLE  •  LASER  CAVITY  MALF-ANOLE  (RAD! 

CCSSl  ■  CONTROL  VARIABLE  0CSI9NATIN6  WHETHER  OR  NOT  Njm  COMBUSTION 
chemistry  inputs  are  reouired 
CHOKE  -  ALPHANUMERIC  SYMBOL  OESIBNATtNS  CHOKED  FLOW 

DFORHF  •.  CONTROL  VARIABLE  OESIBNATING  OF  OR  HF  LASER  CHEMISTRY 

FAIL  ■  ERROR  FI. AO 

FLOW  ■  CHOKEO/SEPARATED/SURSONIC/SUPERSONIC  FLOP  FLAO 

OEOMPN  •  PRIMARY  NOZZLE  9F0NETRY  CONTROL  VARIABLE  SUCH  THAT  I 

■  «AX“  FOR  ASISYMMETRIC  NOZZLES 

■  «?0*  FOR  SLIT  NOZZLES 

OEOMSN  ■  SECONDARY  NOZZLE  BIOMETRY  CONTROL  VARIABLE  SUCH  THATt 

■  «AX«  FOR  AAISYMMETRIC  NOZZLES 
•  «rOM  FOR  SLIT  NOZZLES 

BP  ■  SPECIFIC  HEAT  RATIO  OF  THE  CAVITY  PRODUCT  MIXTURE  WITHOUT 

MIRROR  PURBE 

HBASE  -  HEIOHT  OF  NOZZLE  BASE  (M) 

HF  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  HF  LAl.FR  CHEMISTRY 

HNB  ■  HEIOHT  OF  NOZZLE  BANK  'Ml 

K  ■  00  LOOP  INDEX 

LCAV  ■  LASER  CAVITY  CENTER  LINE  LENGTH  JM1 

L0SS1  •  CONTROL  VARIABLE  DESIBNATINB  WHETHER  OR  ,lOT  NEW  LASER  DEVICE 
INPUTS  ARE  REQUIRED 

LOSS?  «•  CONTROL  VARIABLE  DESIBNATINB  AN  INPUT  VARIABLF  AS  EITHCRl 

■  "T10"  FOR  THE  PRIMARY  COMBUSTOR  OR  NOZZLE  STARNATION 
TEMPERATURE  OR 

■  "F10"  FOR  THE  PRIMARY  COMBUSTOR  OR  NOZZLE  STAGNATION  PRESSURE 
LD5S3  «  CONTROL  VARIABLE  DESIBNATINB  WHETHER  OR  NOT  INPUT  DATA  SHOULD 

BE  READ  FROM  TAPE? 

LPNOZ  «  CENTER  LINE  LENGTH  OF  A  PRIMARY  NOZZLF  FROM  THROAT  TO  EXIT 
PLANE  CHI 

LSEP  ■  CAVITY  FLOW  SEPARATION  LENGTH  FROM  TH.'  NOZZLE  FACE  CM) 

LSLCAV  a  CAVITY  FLOW  SEPARATION  LENOTM-TO-TOTAL  CAVITY  LENGTH  RATIO 

LSNOZ  ■  CENTER  LINE  LENGTH  OF  A  SECONDARY  NOZZLF  FROM  THROAT  TO  EXIT 

PLANE  I M J 

MWP  «  MOLECULAR  WEIGHT  OF  THE  CAVITY  PRODUCT  MIXTURE  WITHOUT  MIRROR 

PURGE  CKG/KMOLEl 

MUPMW6  ■  CAVITY  PRODUCT  MIXTURE  (WITHOUT  MIRROR  PUROEt-TO-ISENTROPIC 
EXPANSION  REGION  EXIT  MOLECULAR  WEIGHT  RATIO 
NO  a  ALPHANUMERIC  SYMBOL  DESIGNATING  A  NEGATIVE  RESPONSE 

NPNOZ  a  NUMBER  OF  PRIMARY  NOZZLES  PER  KMOLE/S  OF  PRIMARY  FLOW 
CS/KMOLE) 

NSNOZ  ■  NUMBER  OF  SECONDARY  NOZZLES  PER  KMOLE/S  OF  PRIMARY  FLOW 
CS/KMOLC) 

NSPNOZ  a  NUMBER  OF  SECONOARY-TO-PRIMARY  NOZZLES 

PKFRAC  a  NOZZLE  PACKING  FRACTION 

0  ■  HEAT  RELEASED  PER  KMOLE  OF  PRIMARY  COMBUSTOR  FLOW  BY  THE 

CHEMICAL  REACTION  OF  FLUORINE  IN  THF  LASER  CAVITY  tJ/KMOLCJ 
068  -  DIMENSIONLESS  HEAT  RELEASE  BETWEEN  STATIONS  6  ANO  8 

RRAR  a  UNIVERSAL  GAS  CONSTANT  (U/KMOLE-KI 
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APPfNOJX  f 


NOMENCLATURE 
nv ERLAY  LOS 


PAGE  F«ll 


SETLOS 

SEP 

sup 

TP 

XI- 

xfcpi  o> 
(?) 

xrcp?ui 

(?) 

xrcP3(l) 

(?) 

xx  cp* ( l ) 
(?) 

XFCPS(l) 

(?) 

xrcpsd) 

(?) 

YES 


CONTROL  VARIABLE  TO  SET  OEEAULT  VALUES 
ALPHANUMERIC  SYMBOL  DESIGNATING  SEPARATED  PLOW 
ALPHANUMERIC  SYMBOL  DESIGNATING  SUPERSONIC  FLOW 
ESTIMATED  STATIC  TEMPERATURE  OP  THE  CAVJiY  PRODUCT  MIXTURE 
WITHOUT  MIRROR  PURSF  (K) 

MOLE  FRACTION  ARRAY 

MOLE  FRACTION  OF  CAVITY  PRODUCT  1.  CF* ,  W/O  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PRODUCT  1*  CF*,  WITH  MIRROR  PURGE 

MOLE  FRACtION  OF  CAVITY  PROOUCT  ?,  HF,  W/O  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PRODUCT  ?»  HF,  WITH  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PROOUCT  3,  OF,  W/O  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PRODUCT  3,  DF ,  llTM  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PRODUCT  *•  ME,  W/O  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PROOUCT  *,  HE,  WITH  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PROOUCT  St  N?,  W/O  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PROOUCT  St  NR,  WITH  MIRROR  PURGE 

MOLE  FRACTION  OF  CAVITY  PROOUCT  6,  0  (H) t  M/O  MIRROR  PURGE 

MOLE  FRACTION  3F  CAVITY  PROOUCT  6,  0  (M) t  WITH  MIRROR  PURGE 

ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 
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appenoix  r 


NOMENCLATURE 
OVERLAY  LOS 


page  r-j? 


NOMENCLATURE  FOR  SUBROUTINE  CAMS 


ASlAPl 

Cl 

C? 

Cl 

c* 

FAIL 

FfX 

FLOW 

QM 

8M«P 

8P 

GP3 

OS 

6S6P 

OSS 

MM3 
MP1 
PS  I 

MWMMWP 

MWPMWS 

MWSMWP 

PMJPPl 

PS1PP1 

SUP 

tmotpo 

TSOTPO 

ASAP 

YES 


SECONOAAY-TO-PAIMAAv  STREAM  AREA  RATIO 
INTERMEDIATE  constant 

intermediate  constant 

INTEANCOIATE  CONSTANT 

inteameoiate  constant 

FAAOA  ELAO 

inteameoiate  constant 

SUBSONIC/SUPERSONIC  ELOA  FLAO 
MIXED  STAEAM  SPfCIElC  MEAT  PATIO 

MIXEO-TO-PAIMARY  STREAM  RATIO  OE  SPECIFIC  HEAT  RATIOS 
PRIMARY  STREAM  SPECIFIC  HEAT  RATIO 
INTFAMCOIATC  CONSTANT 
SECONDARY  STREAM  SPECIFIC  MEAT  RATIO 

SECONOAAV-TO-PAIMAAY  STREAM  RATIO  OF  SPFCIFIC  HFAT  RATIOS 

INTERMEDIATE  CONSTANT 

MIXED  STREAM  MACH  NUMRFR 

PRIMARY  STREAM  MACH  NUMBER 

SECONOART  STREAM  MACH  NUMBER 

M’XEO-TO'-PRIMARY  STREAM  MOLECULAR  WEIGHT  RATIO 
PRImaPY-TO-SCCONOAPY  stream  MOLECULAR  WFIBHT  ratio 

seconoarv-to-primary  stream  molecular  weight  ratio 

MIXEO-TO-PRIHARY  STREAM  STATIC  PRESSURE  RATIO 
SECONDARY-TO~PRINA»Y  STREAM  STATIC  PRESSURE  RATIO 
ALPHANUMERIC  SYMBOL  DESIGNATING  SUPERSONIC  FLOW 
MIXFO-TO-PRIMARY  STREAM  STAGNATION  TEMPERATURE  PATIO 
SECONDARV-TO-PR JNAPY  STREAM  STAGNATION  TFNPERATURE  RATIO 
SecONDARY-TO-PRISAPY  STREAM  NASS  ELOW  RATIO 
ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 
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AMPFNO I n  f 


NOMENCLATURE 
overlay  lhs 


PA3E  F-13 


cp 

CPMIA 

CPTD7 

frac 

3X1* 

t 

J 

mm 

mmmix 

MSI 

NSf 

MAR 

T07 

TLO 

XF 


NOMENCLATURE  FOR  SUBROUTINE  CPfALC 


»  SPECIFIC  MEAT  OATA  ARRAY  Cl.AE-OA  J/KmOLE-X) 

•  SPECIFIC  HEAT  OF  THE  «AS  MIXTURE  IJ/XMOlE-X) 

■  SPECIFIC  HEAT  AT  THE  BAS  MIXTURE  TEMPERATURE  tJ/XMOLE-X) 

■  INTERPOLATION  MEIBMTINB  FACTOR 

•  SPECIE IC  HEAT  RATIO  OF  THE  BAS  MIXTURE 

•  00  LOOP  INDEX 

■  INTEGER  FOR  CB  TABLE  TEMPERATURE  SELECTION 

■  MOLECULAR  MEIOHT  DATA  ARRAY  (KB/KMOLE) 

»  MOLECULAR  MEIOHT  OF  TMF  «AS  MIXTURE  IXB/FMOLEI 

•  00  LOOP  LIMIT  FOR  SPECIES  SELECTION 

•  00  LOOP  LIMIT  FOR  SPECIES  SELECTION 

■  UNIVERSAL  BAS  CONSTANT  (J/KMOLC-K) 

•  TEMPERATURE  OF  THE  BAS  MIXTURE  IE) 

■  LOM  OR  TEMPERATURE  FOR  LINEAR  INTERPOLATION  IK) 

■  MOLF  FRACTION  ARRAY 


APPENOlX  r 


NOMENCLATURE 


page  f-ia 


AIMS  ■  A/A*  FOB  The  ENTERING  STREAK 
A?A1  »  FXIT-TO-ENTBANCE  AREA  PATIO 
f All  -  ERROR  FLAG 

0  •  SPECIFIC  MEAT  PATIO 

nf  •  INTERMEDIATE  CONSTANT 

«A  *  JNTCPPl 01  ATE  CONSTANT 

Ml  •  ENTRANCE  NACH  NUMBER 

HE  •  EXIT  NACH  NUMBER 

P?P1  •  fXIT-TO-ENTBANCE  STATIC  PPESSUPE  PATIO 

PE0P10  •  FXIT-TO-ENTRANCE  STAGNATION  PPESSUPE  PATIO 

SUP  •  ALPHANUMERIC  SYMBOL  DESIGNATING  SUPERSONIC  PLOW 

TETl  •  CXIT-TO-ENTPANCE  STATIC  TEMPERATURE  RATIO 

TE0T10  ■  EMT-TO-ENTPANCE  STAGNATION  TEMPERATURE  RATIO 

VES  ■  ALPHANUMERIC  SYMBOL  OESIGNAT INO  A  POSITIVE  RESPONSE 
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appenoix  r 


NOMENCLATURE 
overlay  los 


paoe  f-is 


ox 

FRRORX 

FRRORY 
NIT 
NS  I  AN 
NStflNl 
NS  ION? 
NTVPE 


PAT  10 
SION 

X 

XNFG 

XPOS 

XSAVE 

Y 

Y6IVFN 

YNF6 

VPOS 


NOMENCLATURE  FOP  SUBROUTINE  IYFP 


STFP  St?C  F OP  CHANOINft  THE  INDEPENDENT  VARIABLE,  X,  tN  THE 
INCPFNf NT  NODE 

MX  X I PUN  PtPCENT  OF  V I  XT  ION  IN  THE  CURRFNT  AND  PREVIOUS  VALUE  OF 
X  FOP  *  SOLUTION 

MAXIMUM  PERCENT  ERROR  IN  Y  ANO  V6IVEN  FOP  A  SOLUTION 

ITERATION  numpfp 

INTFRNEOIATE  constant 

INTERMEDIATE  CONSTANT 

INTFRNEOIATE  CONSTANT 

CONTROL  VARIABLE  SUCH  THAT  I 

1,  FOR  THE  INCREMENT  MODE 

?,  FOR  THE  INTERPOLATION  HOOF 

3.  FOP  A  SOLUTION 

INTERPOLATION  NFI6HTIN0  FACTOR 

CONTROL  VARIABLE  fob  TmF  DIRECTION  OF  INCREMENT  FROM  THE 

INITIAL  VALUE  OF  X 

INOFPENOFNT  VARIABLE 

PREVIOUS  VALUE  OF  X 

PREVIOUS  VALUE  OF  X 

PREVIOUS  VALUE  OF  X 

DEPENDENT  VARIA8LF 

filVFN  VALUE  OF  TMF  DEPENDENT  VARIABLE 
PREVIOUS  VALUE  OF  Y 
PREVIOUS  VALUF  OF  Y 
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APPfNOIX  F 


NOMENCLATURE 
overlay  ins 


PAGE  f-16 


NOMFNCLATURF  POM  SUBROUTINE  l»t AYR 


i  m  SLOPE  OF  VISC0SITY-TFM3EHATURE  RELATION  f Al  Oft  I N.S/M? ) /ALOG ( K )  ) 

p  ■  INTERSECT  OF  VISCOSITY-TEMPERATURE  RELATION  t ALOO (N-S/MP) ) 

OElTA  ■  ROUnARY  LAYEP  TMIC"NFSS  ( M ) 

GFOF AC  «  N077LF  GEOMETRY  FACTOR  SUCH  TmATi 
•  J.O,  FOP  AXISVMHETRIC  N077LES 
■  0.0,  FOP  SLIT  N077LES 
LBN07  »  N077LF  BOUNOARY  LAYER  LENGTH  (HI 
HU  •  APSOLUTr  VISCOSITY  (N-.S/M?) 

MW  ■  MOLECULAR  WEIflHT  (KG/KMOLE1 

PC  -  STATIC  PRCSSUPF  AT  THF  N077LC  EXIT  (PA) 

RPAP  -  UNIVERSAL  GAS  CONSTANT  (J/KMOLE-K1 
RE  •  REYNOLDS  NUMAFP  AT  THF  N077LC  EXIT 

T  •  ADIABATIC  MALL  TEMPERATURE  (*) 

TE  ■  STATIC  TEMPERATURE  AT  THF  N077LE  EXIT  (K) 

TO  ■  N077LE  STAGNATION  TEMPFRATURE  (M 

VF  •  VELOCITY  AT  THE  N077LE  EXIT  (M/S) 


APPfNOt*  F 


NOMENCLATURE 
OVERLAY  LOS 


page  f-it 


NOMf nciaturf  fob  surroutinfs  LCAS,  LCFS 


a?ai  •  exit-to-entrancf  area  patio 

CMOFr  •  ALPHANUMERIC  SYMBOL  OF  S  I  (IMA  TINS  CHOKED  FLOW 
Cl  •  INTERMEDIATE  VARIABLE  IN  TmF  RUNQF-KUTTA  ALGORITHM 

C?  •  INTERMEDIATE  VARIABLE  IN  TMF  BUNGE  «*‘JYY*  ALGORITHM 

C3  •  INTERMEDIATE  VAB  t  ABLE  IN  TmE  BUN6F-KUTTA  ALGORITHM 

C*  •  INTERMEDIATE  VARIABLE  IN  THE  RUNGF-KUTTA  ALGORITHM 

OUM)  •  DUMMY  VARIABLE 

f.UM?  •  DUMMY  variable 

07  •  STEP  SITE  FOB  THF  SIMPSONiS  BULE  INTEGRATION 

07BAI  •  STrp  SI7E  FOB  THE  BUNGE -KUTTA  INTEGRATION 

01  •  INTERMEDIATE  VARIABLE  IN  THE  RUNGf -KUTTA  ALGORITHM 

0?  •  INTERMEDIATE  VARIABLE  IN  THE  BUNBE-RUTTA  ALGORITHM 

03  •  INTERMEDIATE  VARIABLE  IN  THE  RUNBF-RUTTA  ALGORITHM 

0*  •  INTERMEDIATE  VARIABLE  tN  THT  RllNBE-RUTTA  ALGORITHM 

EA  ■  AREA  FUNCTION 

EOM  •  SPECIFIC  HEAT  RATIO  FUNCTION 

CM  ■  ENTHALPY  FUNCTION 

ELOR  »  CHOKEO/SEPABATFD  FI  OR  F.AO 

EMSO  •  MACH  NUMBER  FUNCTION 

FMRM  ■  MOLECULAR  REIOHT  function 

FP  ■  STATIC  PRESSURE  FUNCTION 

FTN  ■  STATIC  TEMPERATURE  FUNCTION 

FFM  ■  MOLAR  FLOR  RATE  FUNCTION 

El  •  FUNCTION  OF  7 

F?  ■  FUNCTION  OF  7 

B3  •  FUNCTION  OF  7 

OA  •  SPECIFIC  HEAT  RATIO  OF  THE  PURGE  GAS 

GAt  •  INTFRMFOI ATE  CONSTANT 

GA?  -  INTERMEDIATE  CONSTANT 

GM  «  SPECIFIC  MEAT  RATIO  OF  ThE  MIXED  STREAM 

GP  •  SPECIFIC  HEAT  RATIO  OF  THE  PRODUCT  GAS 

GPl  ■  INTFRMFOIATE  CONSTANT 

GP?  ■  INTERMEDIATE  CONSTANT 

OR  •  SPFCIFIC  HEAT  RATIO  OF  THE  REACTANT  GAS 

OB  1  •  tNTFRNrOIATE  CONSTANT 

OB?  ■  INTERMEDIATE  CONSTANT 

I  •  00  LOOP  INDEX 

J  •  DO  LOOP  INDEX 

X  ■  DO  LOOP  INDEX 

L PMPP l  -  NATURAL  loo  OF  THF  LOCAL  MIXFO-TO-REACTANT  STATIC  PRESSURE 
RATIO 

MI  •  INITIAL  MACH  NUMBER  FOP  A  7UK0SKI  SEPARATION  CRITERIA 

MM?  *  MACH  NUMBER  OF  TME  MIXED  STREAM  AT  THE  CAVITY  EXIT 

MSO  •  SQUARE  OF  THE  MACH  NUMBER 

MWAMVR  •  PURGF-TO-REACTANT  MOLFCULtR  WEIGHT  RATIO 

mwmmwr  «■  Mixen-ro-flEACTANT  molecular  weight  ratio 

MWPMWR  •  PROrUCT-TO-BE ACTANT  MOLECULAR  WEIGHT  RATIO 
MWRMWA  »  BIACTANT-TO'PUflOE  MOLECULAR  weight  ratio 
MWRMWP  •  BEACTANT-TO-PBOOUCT  MOLECULAR  WEIGHT  RATIO 
N  »  COMPUTE  GO  TO  STATEMENT  INDEX 

NPTS  »  NUMBER  OF  POINTS  FOB  TME  SIMPSON»S  RULf  INTEGRATION 
PMPI  *  LOCAL  MIXCO-TO-lNITtAL  STATIC  PRESSUBF  RATIO 


PAOE  F-m 


APPENDIX 


PMOPRO 

PM?PR1 

PP1PI 

PSFPPJ 

0 

01 

01? 

0? 

SEP 

TAOTRl 
TMTR1 
TMOTRO 
TM?TR1 
UA?WR1 
XMXR 1 
XM?XR 1 
7 

7SEP 


f  nomenclature 

OVERLAY  LDS 


MIXFO-TO-REACTANT  STAGNATION  PRESSURE  RATIO 
FINAL  MIXEO-TO-REACTANT  STATIC  PRESSURE  RATIO 
REACTANT-TO-INITIAL  STATIC  PRESSURE  RATIO 
7UK0SKI  SEPARATION. TO-INITIAL  STATIC  PRESSURE  RATIO 
LOCAL  DIMENSIONLESS  NFAT  RELEASF 
MEAT  RFLFASE  COEFFICIENT 
DIMENSIONLESS  HEAT  RFLFASE 
HEAT  RELEASE  COEFFICIENT 

ALPHANUMERIC  SYMROL  DESIGNATING  SEPARATED  FLO* 

PURGE  STA8NATION-TO-RF ACTANT  static  temperature  ratio 
LOCAL  MIXFO-TO-REACTANT  STATIC  TEMPERATURE  RATIO 
MlXFO-TO-REACTANT  STAGNATION  TEMPERATURE  RATIO 
FINAL  MIXEO-TO-PEACTANT  STATIC  TEMPERATURE  RATIO 
PURGE -TO-RE ACT ANT  MASS  FLO*  RATIO 
LOCAL  MIXFO-TO-REACTANT  MOLAR  FLO*  RATIO 
FINAL  MIXEO-TO-REACTANT  MOLAR  FLO*  RATIO 
DIMENSIONLESS  AXIAL  COOPOINATE 
DIMFNSIONLESS  cavity  FLO*  SEPARATION  LENGTH 


2Uk 


»PPfNDI*  F 


NOMENCLATURE 
OVFRLAY  LDS 


RAGE  F-1P 


NOMENCLATURE  FOR  SURROUTINFS  LPNCS,  LSNCSI,  LSNCS? 


A  »  VISCOSITY  COEFFICIENT  I ALOO ( N-Z/M? ) /ALOG (K ) ) 

AEASE  «  A/A* «  EFFECTIVE 
AFASG  ■  A/A*,  GEOMETRIC 
»EF  •  EFFECTIVE  NOZZLE  EXIT  AREA  (M?) 

AF AC  *  AREA  FACTOR  tM?] 

AKMSC  ■  TOTAL  EFFECTIVE  NOZZLE  rxtl  AREA  FOR  PRIMARY  FLOW  PER  KMOuE.'S 

OF  PRIMARY  FLOW  BASED  ON  THE  COMBUSTOR  TEMPERATURE  IS-m?/kmOLEI 
AKN'SE  •  TOTAL  EFFECTIVE  N077LE  EXIT  APEA  FOR  PRIMARY  FLOW  PER  KMOLE /S 
OF  PRIMARY  FLOW  RASED  ON  THE  EXIT  TEMPERATURE  tS-MZ/KMOLEl 
AKMST  ■  TOT»l  AREA  OF  N077LE  BANK  PER  WMOLE/S  OF  PRIMARY  FLOW  BASED  ON 
THE  EXIT  TEMPERATURE  lS-M?/«MOLF) 

AS  ■  A*  I NZ I 

AX  ■  ALPHANUMERIC  SYMROL  DESIGNATES  AN  AXISYMMETRIC  NOZZLE 

R  *  VISCOSITY  COEFEIECENT  I ALOG (N-S/MZ) 1 

Cl  *  INTERMEDIATE  CONSTANT 

C?  *  INTERMEDIATE  CONSTANT 

C3  «  INTERMEDIATE  CONSTANT 

C*  ■  INTERMEDIATE  CONSTANT 

CS  «  INTERMEDIATE  CONSTANT 

CA  ■  INTERMEDIATE  CONSTANT 

CT  *  INTERMEDIATE  CONSTANT 

Or  ■  NOZZLE  EXIT  DIAMETFR,  GEOMETRIC  fM] 

DEE  ■  NOZZLE  EXIT  OIAMETER,  EFFECTIVE  tM) 

OELME  »  INCREMENT  IN  EXIT  MACH  NUMBER  FOR  SUBROUTINE  ITER 
DELTA  r.  BOUNDARY  LAYER  THICKNESS  AT  THE  NOZZLF  FXIT  tM) 

DFORHE  ■  CONTROL  VARIABLE  DESIGNATING  OF  OR  MF  LASER  CHEMISTRY 
OPE  *  PRIMARY  NOZZlE  FXIT  OIAMETER.  GEOMETRIC  IN) 

DPEE  «  PRIMARY  NOZZLE  FXIT  DIAMETER,  EFFECTIVE  JM) 

DPS  *  0*.  PRIMARY  NOZZLE  JM) 

OS  ■  D*  CM) 

OSE  •  SECONDARY  NOZZLE  EXIT  DIAMETER,  GEOMETRIC  tM) 

DUMMY  *  DUMMY  VARIABLE 
ERROR  ■  SOLUTION  TOLERANCE 

E  *  LENGTH  MFAN  COEFFICIENT  OF  FRICTION 

FAIL  •  ERROR  FLAG 

EDA A  *  FREE  FLUORINE  FLUX  I KMOLE /S—M? ) 

EFLO  ■  A*F*L/0 

FX  •  PREVIOUS  VALUE  Of  E  IN  ITERATION  SCHEMF 

GC  -  SPECIFIC  HEAT  RA i ID  OF  THE  NOZZLE  STRFAM  RASED  ON  THE  COMBUSTOR 

OR  NOZZLF  STAGNATION  TFMPERATURE 

OE  •  SPECIFIC  HEAT  RATIO  OF  THE  NOZZLE  STREAM  BASED  ON  THE  NOZZLE 
EXIT  TFMPERATURE 

GEOFAC  ■  NOZZLE  GEOMETRY  FACTOR  SUCH  THAT  l 
*  1.0,  FOR  AXISYMMETRIC  NOZZLES 

■  0.0,  FOR  SLIT  NOZZLES 

GEOMPN  *  PRIMARY  NOZZLE  GEOMETRY  CONTROL  VARIARLE  SUCH  THAT! 

=i  waXm ,  FOR  AXISYMMETRIC  NOZZLES 
-  "ZO>*,  FOR  SLIT  NOZZLES 

GEOMSN  -  SECONDARY  NOZZLE  GEOMETRY  CONTROL  VARIABLE  SUCH  THAT! 

■  "AX**,  FOR  AXISYMMETRIC  NOZZLES 

■  "ZD",  FOR  SLtT  NOZ7LES 

H  ■  fNTFRMEOI ATE  CONSTANT 
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HE 

MNB 

HP 

MYOIA 

I 

ITER1 

LRNOZ 

L0SS2 


LPN07 

LSNOZ 

HE 

M5UPO 

HU 

MW 

M2 

NIT 

NPNOZ 

NS  I ON J 

NS  I GN? 

NSNOZ 

NSPNOZ 

NTVPE 

PE 

PI 

PKfRAC 

PS 

PO 

PoPOS 

pos 

PBAR 

RE 

RL 

SIGMA 

sup 

TE 

TO 

VE 

wr 

WS 

X AEASE 

xr 

XFPPl 

XFPPZ 

XFPPJ 

XFPPA 

XFPPS 

XFPP6 

XFSRl 

xfsr? 


■  ALPHANUMERIC  SYMBOL  DESIGNATING  HF  LASER  CHEMISYBY 

■  HEIGHT  OF  NOZZLE  BANK  fM) 

.  intermediate  constant 

■  HYDRAULIC  DIAMFfEP 

-  00  LOOP  INDEX 

•  DO  LOOP  INDEX 

■  NOZZLE  BOUNDARY  LAYER  LENGTH  (MI 

■  CONTROL  VARIABLE  DESIGNATING  AN  INPUT  VARIABLE  AS  EITHER* 

■  •' T 1 0 '•  FOR  THE  PRIMARY  COMBUSTOR  OR  N07ZLF  STAGNATION 
TEMPERATURE  OR 

■  MPJO"  FOR  THE  PRIMARY  NOZZLE  STAGNATION  PRESSURE 

■  CENTER  LINE  LENGTH  OF  A  PRIMARY  NOZZLE  FROM  THROAT  TO  EXIT 

PLANE  IM1  .  .. 

a  CENTER  LINE  LENGTH  OF  A  SECONDARY  N0Z7LF  FROM  THROAT  TO  EXIT 
PLANE  IMJ 

■  NOZZLE  EXIT  MACH  NUMBER 

■  NOZZLE  SUPERSONIC  DESIGN  MACH  NUMBER 

■  ABSOLUTE  VISCOSITY  (N-S/M2I 

•  MOLECULAR  WEIGHT  tKO/KMOLM 

■  SQUARE  OF  THE  MACH  NUMBER 

■  INTERMEDIATE  CONSTANT  EOR  SUBROUTINE  I TFB 

■  NUMBER  OF  PRIMARY  NOZZLES  PER  KMOLE/S  OF  PRIMARY  FLOW  (S/KM0LE1 

■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

■  NUMBER  OF  SECONDARY  NOZZLES  PER  KMOLE/S  OF  PRIMARY  ELOW 
(S/KM0LE1 

-  NUMBER  OF  SECONDARY-TO-PRIMARY  NOZZLES 

■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 
«  STATIC  PRESSURE  AT  THE  NOZZLE  EXIT  IPAI 

■  THE  CONSTANT  PI 

•  NOZZLE  PACKING  FRACTION 

•  P*,  STATIC  PRESSURE  FOR  A  MACH  NUMER  OF  ONE  tPAl 
«  COMBUSTOR  OR  NOZZLE  STAGNATION  PRESSURE  fPAJ 

a  THE  STAGNATION  PRESSURE  RATIO,  PO/PO* 

■  P0*»  STAGNATION  PRESSURE  FOP  A  MACH  NUMBER  OF  ONF  CPA) 

•  UNIVERSAL  GAS  CONSTANT  IJ/KMOLE-KJ 

•  REYNOLDS  NUMBER  AT  TmF  NOZZLE  EXIT 

■  MOLAR  CAVITY  MIXTURE  RATIO 

■  DEPENDENT  VARIABLE  FOR  SUBROUTINE  ITCP 

■  ALPHANUMERIC  SYMBOL  DESIGNATING  SUPERSONIC  FLOW 

■  STATIC  TEMPERATURE  AT  THE  NOZZLE  EXIT  IK] 

■  COMBUSTOR  OR  NOZZLE  STAGNATION  TEMPERATURE  IK) 
a  VELOCITY  AT  THF  NOZZLF  EXIT  IM/SJ 

a  PRIMARY  NOZZlE  MASS  FLOW  RATE  l  KB/S  I 
a  SECONDARY  NOZZLE  MASS  FLOW  RATE  I  KG/S J 
a  PREVIOUS  VALUE  Of  AEASE  IN  ITERATION  SCHEME 
a  MOLE  FRACTION  ARRAY 

a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  1,  CF* 

a  MOLF  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  2,  E? 

a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  3,  F 

a  MOLE  FRACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  A,  HF  (DF) 

a  MOLE  FPACTION  OF  PRIMARY  COMBUSTOR  PRODUCT  S,  ME 

a  molf  enaction  of  primary  combustor  product  a,  n? 

a  MCLF  FRACTION  of  SECONDARY  REACTANT  It  D?  (H2> 
a  MOLE  FRACTION  OF  SECONDARY  REACT  ANT  2,  HF 
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XFSP3  *  MOLF  FRACTION  OF  SECONDARY  PFACTANT  3,  N? 

XKMS  ■  TOTAL  SECONDARY  MOLAR  FLOW  RATF  PER  KMOLE/S  OF  PRIMARY  FLOW 

XM?  ■  PREVIOUS  VALUE  OF  M?  IN  ITERATION  SCMfMF 
XNEG  «  INTFRMFOIATE  CONSTANT  FOR  SUBROUTINE  ITER 

t  s  primary  nozzle  molar  flow  rate  ikmole/s; 

XPOS  ■  INTERMFOIATE  CONSTANT  FOR  SUBROUTINE  ITER 
XS  *  SECONDARY  NOZZLE  MOLAR  FLOW  RATE  tKMOLE/S) 

YES  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 
YNE6  ■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

YPOS  ■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 
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NOMENCLATURE  FOP  SUBROUT INF  NAAS 


ERROR  ■  NAXINUM  PERCENT  DEVIATION  IN  NOLO  AND  MNFW  FOR  A  SOLUTION 
FAIL  ■  ERROR  FLAG 

FLOW  ■  CONTROL  VARIABLE  SUCH  THAT  I 

m  MSURN  FOR  THE  SUBSONIC  BRANCH 
■  "SUP"  FOR  THE  SUPFRSONIC  BRANCH 
G  •  SPECIFIC  HEAT  RATIO 

Gl  ■  INTERMEDIATE  CONSTANT 

Gil  •  INTERMEDIATE  CONSTANT 

02  ■  INTERMEDIATE  CONSTANT 

0?I  ■  INTERMEDIATE  CONSTANT 

GA  ■  INTERMEDIATE  CONSTANT 

04 1  ■  intermediate  constant 

J  «  00  LOOP  INOEX 

MINI  •  INITIAL  VALUE  OF  MACH  NUMBER 

MNEV  ■  CURRENT  VALUE  OF  MACH  NUMBER 

MOLD  ■  PRECFFDING  VALUE  OF  MACH  NUMBER 

SUP  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  SUPERSONIC  FLOW 

XERROR  »  CURRENT  PERCENT  DEVIATION  IN  MOLD  AND  MNFW 

VFS  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 
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NOMENCLATURE  FOR  SUBROUTINE  VISC 


A 

R 

C 

OEN 

OIV 

I 

J 

K 

MU 

MUM  I  X 
MW 

NS  1 

NS? 

NUM 

PH  1 

PI 

R? 

SUM  I 
SUM  J 
SX 
SXY 
SX? 

SY 

T 

X 

XF 

Y 


(ALOG{N-S/M?)/AL06tK) 1 
C  ALOG (N-S/M?) J 

IN  THF  VISCOSITY  CALCULATIONS 
IN  THF  VISCOSITY  CALCULATIONS 
IN  THE  VISCOSITY  CALCULATIONS 


VISCOSITY  COEFFICIENT 
VISCOSITY  COEFFICIENT 
INTEBMf  01  A'i  f  CONSTANT 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 
00  LOOP  INDEX 
00  LOOP  INOEX 
00  LOOP  INOEX 

VISCOSITY  DATA  ARRAY  fl,OE*OT  N-S/M?) 

VISCOSITY  OF  THE  GAS  MIXTURE  IN-S/M?] 

MOLECULAR  WEIGHT  DATA  ARRAY  (KG/KMOLE) 

00  LOOP  LIMIT  FOP  SPECIES  SELECTION 
00  LOOP  LIMIT  FOR  SPECIES  SELECTION 
INTERMEDIATE  CONSTANT  IN 
INTEPMEOI ATE  CONSTANT 
I NTFBMF 0 1  ATE  CONSTANT 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  constant 
INTERMEDIATE  CONSTANT  IN  THE  LEAST  SQUARES  CALCUL*T»ONS 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 
intfrmfdiate  CONSTANT 


THE  VISCOSITY  CALCULATIONS 
IN  THE  VISCOSITY  CALCULATIONS 
IN  THE  VISCOSITY  CALCULATIONS 
IN  THE  VISCOSITY  CALCULATIONS 
IN  THE  VISCOSITY  CALCULATIONS 
IN  THE  VISCOSITY  CALCULATIONS 


IN 


THE  LEAST  SOUARFS  CALCULATIONS 
IN  THE  LEAST  SQUARES  CALCULATIONS 
IN  THE  LEAST  SQUARFS  CALCULATIONS 
TEMPFRATURF  OF  THF  GAS  MIXTURE  IKJ 

INTERMEDIATE  CONSTANT  IN  THE  LEAST  SQUARES  CALCULATIONS 
MOLF  FRACTION  ARRAY 

INTERMEDIATE  CONSTANT  IN  THE  LEAST  SQUARES  CALCULATIONS 


-?3 
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PPESSURF  SECOVCPY  SFCTION  OFNfRAL  NOTATION  SCHFME 

A  1  AREA  PEP  KMOLF/S  f.~  LASFR  PRIMARY  FLOW  fS-MP/KMOLEI 
6  l  (GAMMA)  SPECIFIC  HEAT  RATiO 
M  t  MACH  NUMPEP 

MW  I  MOLECULAR  WFI6HT  (KG/KMOLF) 

P  t  PRESSURE  C PA  J 
P  I  DENSITY  t KG/MJ 1 
T  i  TEMPERATURE  t K ) 

W  l  MASS  FLOW  PATE  (KG/S) 

X  I  MOLAR  FLOW  PATE  {KMOLE/SI 

repeated  LETTFPS  INDICATE  PATIOS. 

EXAMPLE!  A?A ]  •  A?/A I 

VARIABLES  ARE  DESIGNATED  AS  TO  LOCATION  BY  THE  FOLLOWING) 

POINT  1!  LASER  CAVITY  EXIT 
POINT  ?!  NORMAL  SHOCK  DIFFUSER  EXIT 
POINT  3!  SUBSONIC  DIFFUSER  EXIT 
POINT  At  EJECTOR  SECONDARY  NOZZLE  EXIT 
POINT  5!  FJECTOP  PRIMARY  NOZZLc  EXIT 
POINT  61  EJECTOR  MIXING  TUBE  EXIT 
POINT  7!  SUBSONIC  DIFFUSER  EXIT 

EXfiMfLEl  MS  ■  EJFCTOR  PRIMARY  NOZZLE  FXIT  MACH  NIJMBEW 
Ot  INDICATES  STAGNATION  CONDITIONS 

EXAMPLE!  T?0  -  NORMAL  SHOCK  DIFFUSER  EXIT  STAGNATION  TENPpRATUNE 
NOTFI  all  VARIABLES  NOT  FOLLOWING  THIS  SCHEME  APt  DEFINED  IN  Tl!t 

nomfnclature  for  the  program  or  suproutine  whet.e  they  appear. 
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NOMENCLATURF  EOS  PROGRAM  PRS  ANO  SUBROUTINES  C AFOS  .  INPRS , OUTPRS , SSEOS 


CAE 

EJECT 


r  T  A 1  ? 

fta?s 
FT  Af>  7 
FAIL 

6M 

GP 

GS 

ITER  J 
ITER? 
ITER3 

K 

inssi 

LIMIT 


;  IPP 

MWMMWP 

MWPMWS 

MWSMWP 

NITl 

NIT? 

NIT  3 

NO 

NSI3NI 

N5IGN2 

NSIGN3 

NSIGNA 

NTYPE1 

NTYPE? 

NTYPE3 

POPU 

PRSSI 

PRSS2 

ROAR 

SETPRS 


ALPHANUMERIC  SYMBOL  PESIGNATING  A  SUBSONIC-SUPERSONIC  EJECTOR 
FOR  PRESSURE  RECOVERY 

CONTROL  VARIABLE  DESIGNATING  THE?  PRESSURE  RECOVFRY  SYSTEM 
SUCH  THAT! 

••NO"  FOB  NC  PRESSURE  RECOVERY  SYSTEM 

"OIF"  FOR  A  SUPERSONIC -SUBSONIC  DIEElISFP  SYSTEM 

"CAE"  FOR  A  CONSTANT-AREA,  SUBSONIC-SUPFRSONIC  EJECTOR  SYSTEM 

"SSE"  FOR  A  CONSTANT-AREA,  SUPfc RSONI C-SUPERSONIC  EJECTOR 

SYSTEM 

NORMAL  SHOCK  DIFFUSER  COEFFICIENT  FOR  THE  FLOW  BETWEEN 
STATIONS  1  ANO  ? 

SUBSONIC  DIFFUSER  COEFFICIENT  FOB  THE  FLOW  BETWFEN  STATIONS  ? 
AND  3 

SUBSONIC  DIFFUSER  COEFFICIENT  FOR  THE  FLOW  BETWFEN  STATIONS  6 
AND  7 

ERROR  Fi.A6 

EJECTOR  NIXED  STREAM  SPECIFIC  HFAT  RATIO 
FJEC70P  PRIMARY  STREAM  SPECIFIC  HEAT  RATIO 
EJECTOR  SECONDARY  STREAM  SPECIFIC  HEAT  PATIO 
00  LOOP  INDEX 
00  LOOP  INDEX 
DO  LOOP  INOFX 
OC  LOOP  INDEX 

CONTROL  VARIABLE  DESIGNATING  WHETMEB  OP  NOT  NEW  LASER  DEVICE 
INPUTS  ARE  RFOUIREO 

CONTROL  VARIABLE  TO  SET  THE  LIMITING  CONDITION  ON  CONSANT- 
ABEA.  SUPERSONIC-SUPERSONIC  EJECTOR  OPERATION  SUCH  THATi 
•>mpp»  FOR  THE  MATCHED  PRESSURE  POINT 
"ZSP"  FOR  the  zukoski  separation  point 
"ULP"  FOR  THE  UPPFR  L JM I T  POINT 

ALPHANUMERIC  SYMBOL  DESIGNATING  THE  MATCHED  PRESSURE  POINT 

EJFCTOR  NIXED-TO-PRIMARY  stream  moleculap  weight  ratio 

fjector  prihary-to-seconoary  stream  molfcular  wfight  ratio 

ejector  SECONOARY-TO-PRIMARV  stream  molfcular  WFIGHT  ratio 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  MIN 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

INTERMEDIATE  CONSTANT  FOB  SUBROUTINE  ITFP 

ALPHANUMERIC  SYMBOL  OFSIGNATING  a  NEGATIVE  RESPONSE 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  MIN 

INTERMEDIATE  CONSTANT  FOP  SUBROUTINE  ITER 

INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

OISTURBEO-TO-UNOISTURBCO  STfcTIC  PRESSURF  RATIO 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OR  NOT  NEW  PRESSURE 

RECOVERY  INPUTS  ARE  REQUIRED 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OR  NOT  INPUT  DATA  SHOULD 

BE  READ  FROM  TAPES 

UNIVERSAL  GAS  CONSTANT  IJ/KMOLE-KJ 

CONTROL  VARUBLF  TO  SET  OEEAULT  VALUES 
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SSF  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  A  SUPFRSONIC-SuPERSONIC 
EJECTOR  FOP  PRESSURE  PECOVCPV 

ULP  «  ALPHANUMERIC  SYMBOL  DESIGNATING  THE  UPPER  LIMIT  POINT 

WPWS  •  EJFCTOP  PPIMARY-TO-SFCONOAPY  MASS  FLOW  PATIO 

WSWP  ■  FJFCTOP  SECONOAPY-TO-PPIMAPY  MASS  FLOW  PATIO 

XNEG2  »  INTCPMCOIATE  CONSTANT  FOP  SUBROUTINE  ITfP 

XNFG3  «  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITFP 

XPOS2  •  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITFP 

XPOS3  •  INTFRMEOI ATE  CONSTANT  FOR  SUBROUTINE  ITE» 

XP50P1  *  PREVIOUS  VALUE  OF  P50P1  IN  ITERATION  SCHEME 

XP50P40  >  PREVIOUS  VALUE  OF  P50PA0  IN  ITERATION  SCHEME 

XP7P1  »  PREVIOUS  VALUE  OF  PTP1  IN  ITERATION  SCHEME 

XP7PA0  «  PREVIOUS  VALUE  OF  P7PA0  IN  ITERATION  SCHEMF 

XWPWS  ■  PREVIOUS  VALUE  OF  WPWS  IN  ITERATION  SCHFME 

YFS  ■  ALPHANUMERIC  symbol  DESIGNATING  A  POSITIVE  RESPONSE 

YNEG2  ■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

YNE63  ■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITFP 

YP0S2  ■  INTERMEDIATE  CONSTANT  FOR  SUBROUTINE  ITER 

YP0S3  «  INTERMEDIATE  CONSTANT  FOP  SUBROUTINE  ITER 

7SP  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  A  ZUKOSRI  SEPARATION  POINT 
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NOMENCLATURE  EOR  SUBROUTINES  CAEEC,  CAEOCV.  SSES 


API AM3 

AP1APS 

AP?APS 

ASSAS1 

PS1AP1 

AS I  ASS 

*S?ASS 

AS? AS  1 

CPSCPP 

Co 

Cl 

c> 

C3 

C* 

CS 

C6 

pail 

ffx 

EGPMP1 

f«smsi 

FLOP 
GOPMP 1 
OOSMS1 
OM 

0M8P 

BP 

BPS 

os 

GS6P 
OS  3 
LIMIT 


mm  j 

MM3M 

MM3P 

MPP 

MP1 

►>P? 

NSOD3M 

MS0D3P 

*S1 

*S? 

MWMMWP 

mwpmws 

MWSMWP 

part 

pmsppi 

PM3PS0 


entrance  primarv-to-fxit  mixed  STREAM  area  RATIO 

A/A*  EOR  the  ENTERINO  PRIMARY  STREAM 

A/A*  EUR  THE  PRIMARY  STREAM  AT  THE  MINIMUM  POINT 

A*/A  FOR  THE  ENTERINO  SECONOARY  STREAM 

FNTERINO  SECONDARV-TO-PRIMARY  STREAM  AREA  RATIO 

A/a*  FOR  the  ENTERINO  SECONDARY  STREAM 

A/A*  FOR  The  SECONDARY  STREAM  AT  THE  MINIMUM  POINT 

MINIMUM  POINT -TO-ENTERING  AREA  RATIO  FOR  THE  SECONOARY  STREAM 

SECONOARV-TO-PRIMARY  STREAM  SPECIFIC  HEAT  RATIO 

INTFRKOIATE  CONSTANT 

INTERMEDIATE  CONSTANT 

INTERMEDIATE  CONSTANT 

INTERMEDIATE  CONSTANT 

INTERMEDIATE  CONSTANT 

INTERMEDIATE  CONSTANT 

INTERMEDIATE  CONSTANT 

ERROR  FLAG 

INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 
SURSONIC/SUPERSONIC  FLOP  FLAG 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 
MIXED  STREAM  SPECIFIC  HEAT  RATIO 

MIXED-TO-PRIMARV  stream  ratio  of  specific  heat  ratio* 
primary  stream  specific  heat  ratio 

INTEBMEDIATF  CONSTANT 

SECONDARY  STREAM  SPECIFIC  HEAT  RATIO 

SECONDARY-TO-PRIMARY  STREAM  RATIO  OF  SPECIFIC  MFAT  RATIOS 
INTERMEDIATE  CONSTANT 

CONTROL  VARIABLE  TO  SET  THE  LIMITING  CONDITION  ON  CONSTANT- 

AREA,  SUPERSONIC-SUPERSONIC  EJECTOR  OPERATION  SUCH  THATi 

«MPPh  EOR  THE  MATCHED  PRESSURE  POINT 

"ZSP»  EOR  THE  ZUKOSKI  SEPARATION  POINT 

"ULP"  FOR  THE  UPPER  LIMIT  POINT 

EXITIN6  MIXED  STREAM  MACH  NUMBER 

ONE  OF  TWO  POSSIBLE  SOLUTIONS  FOR  MM3 

ONE  OF  TWO  POSSIBLE  SOLUTIONS  FOR  MM3 

ALPHANUMERIC  SYMBOL  DESIGNATING  THE  MATCHED  PRESSURE  POINT 

ENTERING  PRIMARY  STREAM  MACH  NUMBER 

PRIMARY  STREAM  MACH  NUMBER  AT  THE  MINIMUM  POINT 

THE  SQUARE  OF  MM3M 

THE  SQUARE  OF  MM3P 

ENTERINO  SECONDARY  STREAM  MACH  NUMBER 
SECONDARY  STREAM  MACH  NUMBER  AT  THE  MINIMUM  POINT 
MIXED— TO— PRIMARY  STREAM  MOLECULAR  WEIOMT  RATIO 
PRIMARV-TO-SECONOARY  STREAM  MOLECULAR  WEIGHT  RATIO 
SECONDARV-TO-PRIMARY  STREAM  MOLECULAR  WFIGhT  RATIO 
ALPHANUMERIC  SYMBOL  DESIGNATING  NON-FATAL  OR  PARTIAL  ERROR 
EXITING  MIXED-TO-ENTERINO  PRIMARY  STATIC  PRESSURF  RATIO 
EXITING  MIXED  STATIC-TO-ENTERING  SECONOARY  STAGNATION  PRESSURE 
RATIO 
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PMJP  SI 
PPJlPSO 
PP0PS1 
PS1PP0 
PSlPPl 
PS1PS0 
PSPP50 

PS?RS1 

SUP 

TMOTPO 

TMJ 

TMJNIN 

TSOTPO 

ULP 

VP 

VN 

WSVP 

YES 


EXITING  MIXED-TO-ENTERINu  SrCO^«HV  STATIC  PRESSURE  PATIO 
ENTERING  PRIMARY-TO-SECONDARY  STAGNATION  PRESSURE  PATIO 
ENTERING  PRIMARY  STAONAT ION-TO-SECONDARY  STATIC  PRESSURE  PATIO 
ENTERING  SECONDARY  STATIC-TOoPPIMARV  STAGNATION  PRESSURE  RATIO 
ENTERING  SECONPANY-TO-PRIMARV  STATIC  PRESSURE  RATIO 
ENTERING  SECONDARY  S T AT  I C-TO-ST AONAT I  ON  PRESSURE  RATIO 
STATIC. TO-STAGNATION  PRESSURE  RATIO  EOR  THE  SECONDARY  STREAM  AT 
THE  MINIMUM  POINT 

MINIMUM  POINT- TO-ENTERING  SECONDARY  STREAM  STATIC  PRESSURE 
RATIO 

ALPHANUMERIC  SYMROL  DESIGNATING  SUPERSONIC  FLOM 
Ml XEO— TO-PR 1  MAR Y  stagnation  TEMPERATURE  RATIO 
tnteomfoiate  CONSTANT 
INTERMEDIATE  CONSTANT 

SECONOARY-TO-PRINARY  STAGNATION  TEMPERATURE  RATIO 
ALPHANUMERIC  SYMBOL  DESIGNATING  THE  UPPER  LIMIT  POINT 
INTERMEDIATE  CONSTANT 
INTERMEDIATE  CONSTANT 

SFCONDARY-TO-PRIMARY  STREAM  MASS  FLOP  RATIO 
ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 


APPFNCT*  F  NOMENCLATURE  PAGE  F-?9 

OVERLAY  PBS 

NOMENCLATURE  FOP  SUBROUTINE  ITFR 

SFF  THE  NOMENCLATURE  FOP  SUBROUTINE  ITER  LISTED  UNDER  OVFBLAY  LOS. 


APPFNDIX  F 


NOMENCLATURE 
OVERLAY  PRS 


NOMENCLATURE  FOR  SUBROUTINE  MAAS 


PAGE  E-30 


SFE  THE  NOMENCLATURE  FOR  SUBROUTINE  MAAS  LISTED  UNDER  OVFRLAY  LOS, 


APPENDIX  F  NOMENCLATURE  PAGE  P-31 

OVERLAY  PRS 


NOMENCLATURE  for  surroutinf  MIN 


DMS1  «  INCREMENT  IN  MSI 

0*  *  INITIAL  INCREMENT  IN  MSI 

FAIL  -  ERROR  FLAG 

FUNC  «  FUNTION  OF  MSI  TO  RE  MINIMIZED 

MSI  ■  SECONDARY  MACH  NUMBER  AT  THE  MIXING  TURF  ENTRANCF 
MS1L0V  »  LOWER  BOUND  ON  MSI 
NIT  «  NUMBER  OF  ITERATIONS 

NO  »  ALPHANUMERIC  SYMBOL  DESIGNATING  A  NEGATIVE  RESPONSE 
NTYPE  ■  CONTROL  VARIABLE  SUCH  THAT  I 
«  1.2  FOR  THE  SEARCH  MODE 
■  3. *  FOR  A  SOLUTION 

PART  *  ALPHANUMERIC  SYMBOL  DESIGNATING  A  NON-FATAL  OR  PARTIAL  ERROR 
XFRROR  *  MAXIMUM  PERCENT  DEVIATION  IN  THE  CURRENT  AND  PRFVIOU?  VALUE  OF 
MSI  FOR  A  SOLUTION 
FLOW  «  INITIAL  LOWER  POUND  ON  MSI 
Xi  *  PREVIOUS  VALUE  OF  MSI 

X2  *  PREVIOUS  VALUE  OF  MSI 

YFRROR  *  MAXIMUM  PERCENT  DEVIATION  IN  THE  CURRFNT  AND  PREVIOUS  VALUE  OF 
FUNC  FOR  A  SOLUTION 

YES  «  ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 
Y1  r  PREVIOUS  VALUE  OF  FUNC 

Y2  •  PREVIOUS  VALUE  OF  FUNC 


257 


APPfNOI*  f 


NOMENCLATURE 
OVERLAY  PBS 


PA6E  F-3? 


a 


l 


NOMf NCL  A  TUBE  FOB  SUBROUTINES  NSOE.  SOS 


A 1 A 1 S  «  A/A*  FOB  THE  ENTERING  STBCAN 

A?A1  *  FXIT-TO-ENTfiANCE  AREA  PATIO 

A?*.->S  •  A/A*  FOB  THE  FXITINO  STREAM 

tFF  •  SURSONtC  D.'FFUSEB  EFFICIENCY 

FAIL  *  ERROR  FLAG 

0  *  SPFCFIC  HEAT  RATIO 

fl?  •  INTERMEDIATE  CONSTANT 

0*  ■  INTERMEDIATE  CONSTANT 

Ml  •  ENTRANCE  MACH  NUMBER 

M?  «  FXIT  MACH  NUMBER 

PIOPI  •  FNTPANCC  ST AGMAT 10N-T0-STATIC  PRESSURE  RaTIC 
P? PI  ■  FXtT-TO-ENTBANCE  STATIC  PRES5URF  RATIO 

P? 0P10  •  FXIT-TO* ENTRANCE  STAGNATION  PRESSURE  RATIO 
P?OP?  •  EXIT  STAGNATION-TO-STATIC  PRESSUPE  RATIO 

PO  •  OIFFUSER  coeffiecient 

SUR  «  ALPHANUMERIC  SYMBOL  designating  subsonic  flow 

T I  0 T l  *  ENTRANCE  STAGNATION-TO-STATIC  TEMPERATURE  RATIO 

T?T1  »  FXIT-TO-ENTRANCE  STATIC  TEMPERATURE  RATIO 

T?OT l 0  •  E X  I T-TO-EN TRANCE  STAGNATION  TEMPERATURE  RATIO 

7?nT?  •  FX 17  STAGNATION-TO-STATIC  TEMPERATURE  RATIO 

YFS  ■  ALPHANUMERIC  SYMBOL  OESIGNATING  A  PUS1TTVF  RESPONSE 


i: 

'i 


/ 


APPFNOIt  F 


NOMENCLATURE 
OVERLAY  SCS 


PAGE  f “33 


NOMfNCLATUPF  FOR  PROGPAM  SCS  AND  SURROUTINFS  INSCS,  OUTSCS 


ARASF 

ACONE 

AF 

AFPNF 

AESHRD 

AMR 
ASCAV 
A SCONE 
ASPLFN 
ASSMRD 

ASSTPT 

ASSURD 

ASSUPO 

ASTAP 

ASTB 

R 

PfiFRAC 

C 

CAF 

TANGLE 

PA 

PR 

PC 

PP 

PF 

DFSCRI 

PF 

DFORHF 

PTF 

PL 

PMAX 

OMIR 

DPLEN 

PSTAR 

PSTRUT 

EJECT 

ERFACT 

FAIL 

FPAA 

PEP 

MBASE 


«  AREA  OF  A  N0Z7LF  R4SC  fM?J  -  INCLUDES  THF  NOZZLF  RANK  AREA 
PLUS  RANK  RELIEF 

*  EXIT  AREA  OF  AN  FACTOR  PRIMARY  NOZZLF  CONE  EM?) 

»  APE  A  AT  STATION  F  IM?1,  THF  FJFCTOR.  CONST ANT-APF A »  MIXING 
SHROUD 

■  TOTAL  AREA  OF  THE  FJFCTOR  PRIMARY  N077LF  EXITS  PER  KMOLF/S  UP 

laser  primary  riow  is-m?/kmolei 

«  TOTAL  AREA  OF  THF  EJFCTOP,  CONS T ANT -ABF A ,  MIXING  ShROUOS  P6M 
KMOCF/S  OF  LASER  PRIMARY  FLOW  f  S-M2/KM01.E  1 
>  ARF A  OF  A  N077LE  RANK  fM?I 

■  SURFACE  AREA  OF  A  LASER  CAVITY  IM2) 

«  SURFACE  AREA  OF  AN  FJFCTOR  PRIMARY  N077LF  CONE  rM?) 

«  SURFACF  AREA  OF  AN  EJECTOR  PPIMARY  N077LF  PLENNUM  I  M2 1 

*  SURFACE  AREA  OF  AN  EJECTOR  MIXING  SHROlIp  IMpJ  _  INCLUDES  THF 
FINAL  SUBSONIC  DIFFUSER 

*  SURFACE  AREA  OF  AN  EJECTOR  PRIMARY  N077LF  STRUT  IM?) 

«  SURFACE  AREA  OF  A  SUBSONIC  DIFFUSER  (M?J 

■  SURFACF  AREA  OF  A  SUPERSONIC  DIFFUSER  f M? ) 
a  A*  --OR  AN  FJFCTOR  PRIMARY  NOZZLE  1*2) 

■  SURFACE  AREA  OF  AN  FJFCTOR  TRANSITION  PIECF  IM?J 
«  OPTICAL  BENCH  DIAMETER  (M) 

»  INTERMEDIATE  CONSTANT 

*  RANK  RELIEF  FRACTION 
b  1 NTFOMFD I ATE  CONSTANT 

■  ALPHANUMERIC  SYMROL  DESIGNATING  A  SURSONIC-SUPFPSONIC  FJECTOR 
FOP  PPFSSURF  RECOVERY 

*  LASFP  CAVITY  HALF-ANGLE  f RAD  1 

«  PIAMFTER  AT  STATION  A  (M)  ,  THE  LASER  CAVITY  EXIT 

a  PIAMFTER  AT  STATION  R  (M),  THE  SUBSONIC  DIFFUSFO  EXIT 

«  PIAMFTER  AT  STATION  C  IM),  THF  INITIAL  TRANSITION  SECTION  tXIT 

■  OIAMFTFR  at  STATION  P  IMJ,  THE  FINAL  TRANSITION  SECTION  EXIT 

■  OIAMFTFR  AT  STATION  F  IM],  THE  FJECTOR,  CONSTANT-ARE A ,  MIXING 

SHBOUP 

■  ARRAY  OF  ALPHANUMERIC  STORAGF  MODE  DESCRIPTORS  FOR  I/O 

■  ALPHANUMERIC  SYMBOL  DESIGNATING  OF  LASFP  CHEMISTRY 

■  DIAMETER  AT  STATION  F  (MJ,  THE  FJECTOR  SUBSONIC-DIFFUSER  EXIT 

■  CONTROL  VARIARIE  DESIGNATING  DF  OR  HF  LASER  CNFMISTRY 

«  ALPHANUMERIC  SYMBOL  DESIGNATING  A  SUPrRSONIC-SURSONIC  DIFFUSER 
FOR  PRESSURE  RECOVERY 

■  DIAMETFR  AT  STATION  L  CM),  THF  MAXIMUM  DIAMETER  OF  A  SURSONJC- 
SUPERSONIC  EJECTOR  SHROUD 

«  INTERMEDIATE  CONSTANT 

■  MIRROR  DIAMETFR  (MJ 

■  DIAMETER  OF  AN  FJFCTOR  PRIMARY  NOZZLE  PLENNUM  fMj 

■  D«  FOR  AN  FJFCTOR  PRIMARY  NOZZLE  IM) 

■  OUMETER  OF  AN  EJFCTOR  PRIMARY  NOZZLE  STRUT  IMJ 

-  CONTROL  VARIABLE  DESIGNATING  THE  PRESSURE  RECOVFRY  SYSTEM 
B  CONTROL  VAR  I ARLE  PF5IGNATING  THF  EJECTOR  PRIMARY  REACTANT 

■  ERROR  FLAG 

■  FRFE  FLUORINF  FLUX  JKMOLF/S-M?) 

B  GAMMA,  SPECIFIC  HF  AT  RATIO,  FOR  THE  FJFCTOR  PRIMARY  REACTANT 
b  HEIGHT  OF  A  NOZZLE  RASE  IMJ 
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wli 


r 


tPPFNOI  *  F  WOMFNCL*TUPF  PAGE  F-n* 

OVFPLAY  SCS 


HPXOE'<  a  HE  1 3WT  OF  THE  BOX  DEVICF  (M) 

HF  ■  ALPHANUMERIC  SYMBOL  DESIGNATING  MF  laser  cmfwistRy 

HNR  a  HEIGHT  OF  A  NOTZLf  BANK  IM) 

I  i  00  LOOP  INDEX 

J  a  00  LOOP  INDEX 

K  j  STORAGE  MOOE  CONTROL  ARRAY 

L  «  UO  LOOP  INDEX 

LBXOEV  a  LENGTH  OF  THE  BOX  DEVICE  INI 

LCAV  a  LENGTH  OF  A  LASER  CAVITY  1*1 

LC0M8  w  LENGTH  OK  A  COMflUSTOP  (Ml  -  INCLUDES  VHF  INJFCTOR  AND  NOZZLt 
BANK 

LCONE  a  LENGTH  OF  AN  EJECTOR  PRIMARY  NOZZLE  CDNF  fM) 

LFJECT  a  LENGTH  OF  AN  FJFCTOR  JM! 

LINJ  a  LENGTH  OF  AN  INJECTOR  IM1 

LLOS  a  LENGTH  OF  THE  LASER  DEVICE  SF.CTION  CM) 

LLINE  a  LENGTH  CF  REACTANT  FFEO  LINES  l M 1 

LPRS  a  LENGTH  OF  THE  PRESSURF  RECOVERY  SYSTEM  (M) 

LSUPO  a  LENGTH  OF  A  SUBSONIC  OiFFUSER  IMJ 

LSUPO  a  IEnGTH  of  A  SUPFPSONIC  diffuser  chi 

LTR 1  .1  LENGTH  OF  AN  INITIAL  TRANSITION  SECTION  IMJ 

LTR?  a  LENGTH  OF  A  FINAL  TRANSITION  SECTION  (Ml 

HAW  a  TOTAL  HASS  OF  THE  AERO-WINOOWS  (KG1 

MAWF  a  OELIVFRFO  HASS  OF  THE  AERO-WINUOW  FLUID  {KG  J 

HRASE  a  TOTAL  HASS  OF  THE  LASER  NOZZLE  RASES  t KG ) 

NCAV  a  TOTAL  HASS  OF  THE  LASER  CAVITIES  IKG1 

NCR  a  TOTAL  HASS  OF  THE  COHRUSTOP  BODIES  IKQ1 

MCONE  a  TOTAL  HASS  OF  THE  EJECTOR  PRIMARY  NOZZlF  CONES  IKGI 

MCS  a  MASS  OF  THE  COOLING  SYSTEM  IKGI 

MCSF  a  MASS  OF  THE  COOLING  SYSTEM  FLUID  tKGl 

MOS  a  MASS  OF  THE  DEVICE  SUPPORT  (KO) 

MEJECT  a  TOTAL  MASS  OF  THE  EJECTORS  {KOI 

MEL INE  a  MASS  OF  THE  EJECTOR  REACTANT  FEED  LINES  (KG' 

"*F PNE  a  MACH  NO.  AT  THE  EJECTOR  PRIMARY  NOZZLE  FAIT 

HFOR  a  DELI VCREO  MASS  OF  the  rj£CT0M  PRIMARY  DFACTANT  (KU) 

MERREG  a  MASS  OF  THE  EJECTOR  PRIMARY  REACTANT  REGULATOR  r KG  1 

MFRT  a  HASS  OF  TUE  EJECTOR  PRIMARY  PEXCTANT  TANK AOE  AND  ELU'O  IKGI 

MHC  a  DELIVERED  MASS  OF  HE  IKGI 

MJNJ  a  TOTAL  HASS  OF  THE  INJECTORS  CKO) 

MLDHDW  a  MASS  OF  THE  LASER  OEVICE  HAROWARf  ( KG  I 

MLOS  a  MASS  OF  THE  LASER  DEVICE  SYSTEM  (KG) 

MLLINE  a  MASS  OF  1  HE  LASER  REACTANT  FEED  LINES  ( KG ) 

Ml?R  a  DELIVERED  HASS  OF  THE  LASER  PRIMARY  REACTANT  (KOI 
MLRRFG  j  mass  of  THE  LASER  REACTANT  REGULATOR  (KG) 

MLPT  a  HASS  OF  THE  LASER  REACTANT  TANKAGE  AND  FLUID  (KG) 

MLSR  a  DFLIVFREO  HASS  OF  THF  LASER  S  COKDARV  RF  ACT  ANT  (KG) 

MM  I P  a  MASS  OF  A  MIRAOR  (KG) 

HMISC  ■  MASS  OF  MISCFLLANFOUS  items  IKGI 
MOt»T  a  TOTAL  MASS  OF  THE  LASFR  OPTICS  (KOI 

MPLFN  a  TOTAL  MASS  OF  the  EJECTOR  PRIMARY  NOZZLE  PLENNUMS  IKG) 

MPRHDW  a  -ASS  OF  THE  PRESSURE  RECOVERY  HARDWARE  (EG) 

MPRS  a  HASS  or  THE  PRESSURE  RECOVERY  SYSTEM  (KG) 

MSHRD  a  TOTAL  MASS  OF  THE  EJECTOR  SHROUDS  (KG) 

MSTRUT  a  TOTAL  HASS  OF  THE  EJECTOR  PRIMARY  NOZZLE  STRUTS  IKG) 

MSUBO  a  TOTAL  MASS  OF  THE  SUBSONIC  DIFFUSERS  ( KG  1 

MSUPO  a  TOTAL  HASS  OF  THF  SUPFPSONIC  DIFFUSERS  (KG) 


APPENDIX  F 


NOMENCLATURE 
OVERLAY  SCS 


PAGE  E“3*> 


MTOTAL 

MTP 

NHANK 

NEJFCT 

NMAX 

NO 

ntank 

N1 

N? 

,J3 

N* 

P(1 

POEP 

PPIP 

PftLS 

0 

RTIMF 

SCSSj 

SCSS? 

SCSS3 

SCSS4 

sdangl 

SETSCS 

S*F 

STAW 

STC5 

STCPHA 

STO? 

STF? 

STHE 

STH? 

STIRFNA 

STMMH 

STMODE 

STNF3 

STN? 

STN?H4 

TAU 

THETA 

TTTLF 

TRANG1 

TRANG2 

VAX' 

VBXDEV 

vcav 


TOTAL  SYSTEM  mass  [ KG  1 

TOTAL  mass  OF  THE  TRANSITION  SECTIONS  f KG ) 

NUMBER  OF  LASFR  HANKS 
NUMBER  OF  EJFCTOPS  PER  LASER  BANK 

0.  FOR  THE  MAXIMUM  ALLOWABLE 

INTERMEDIATE  CONSTANT 

ALPHANUMERIC  SYMBOL  DESIGNATING  A  NEGATIVE  RESPONSE 
NUMBER  OE  TANKS 

NUMBER  OF  CARRON  ATOMS  IN  LASER  PRIMARY  REACTANT  l 
NUMBER  OF  HYOROGFN  (DEUTERIUM)  ATOMS  IN  LASER  PRIMARY 
REACTANT  ? 

NUMBER  OF  NITROGEN  ATOMS  IN  LASER  PRIMARY  REACTANT  A 

NUMBER  OF  FLUORINE  ATOMS  IN  LASER  PRIMAPY  REACTANT  A 

STAGNATION  PRESSURE  IPAJ 
EJECTOR  PRIMAPY  STAGNATION  PRESSURE  CPA) 

LASER  PRIMARY  STAGNATION  PRESSURE  (PA) 

LASER  SECONDARY  STAGNATION  PRFSSURE  CPA) 

HEAT  RELEASEO  PER  KMOLE  OF  PRIMARY  FLOW  HY  THE  CHEMICAL 
REACTION  OF  FLUORINE  IN  THE  LASER  CAVITY  (J/KMOLE) 

RUN  TIME  CS) 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OR  NOT  NEW  SYSTEM 
CALCULATION  INPUTS  ARF  REQUIRED 

CONTROL  VARIABLE  DESIGNATING  WHETHER  OR  NOT  SYSTEM 
CALCULATIONS  ARE  TO  RE  PERFORMED 

CONTROL  variarle  designating  WHETHER  OR  NOT  INPUT  data  SHOULD 
RE  PEAD  FROM  TAPE4 

CONTROL  VARIABLE  DESIGNATING  WHETHER  Op  NOT  NEW  REACTANT 
STORAGF  NODES  APE  REQUIRED 
SUBSONIC  DIFFUSER  HALF-ANGLF  I  RAD ) 

CONTROL  VARIABLE  TO  SET  DEFAULT  VALUES 

ALPHANUMERIC  SYMBOL  DESIGNATING  A  SUPFRSONIC-SUPERSONIC 

EJECTOR  FOR  PRESSURE  RECOVERY 

STORAGE  MODE  OESCRIPTOR  DATA  ARRAY  FOR  N?-AW 

STORAGF  MODE  DESCRIPTOR  DATA  ARRAY  FOR  MPO-CS 

STORAGF  MODE  OESCRIPTOR  DATA  ARRAY  FOR  C?M4 

STORAGF  MODE  DESCRIPTOR  OATA  ARRAY  FOR  D? 

STORAGE  MODE  OESCRIPTOR  OATA  ARRAY  FOR  F? 

STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  ME 

STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  H? 

STORAGE  MODE  DESCRIPTOR  OATA  ARRAY  FOR  IRENA 

STORAGE  MODE  DESCRIPTOR  DATA  ARRAY  FOR  MMH 

REACTANT  STORAGE  MOOF  DESCRIPTOR  ARRAY 
STORAGE  MODE  DESCRIPTOR  OATf  ARRAY  FOR  NF3 

STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY  FOR  N2 

STORAGE  MODE  DESCRIPTOR  OATA  ARRAY  FOR  N?H4 

MATERIAL  THICKNESS  (M) 

INITIAL  TRANSITION  SECTION  HALE-ANGLE  IN  THE  HORIZONTAL  PL*NE 
(HAD) 

ARRAY  OE  STORAGE  MOOE  HEADINGS  FOR  I/O 

INITIAL  TRANSITION  SFCTION  hale-angle  IN  THE  VFPTICLE  PLANE 
(RAO) 

final  transition  section  hale-angle  irad) 

TOTAL  VOLUME  OF  THE  AERO-WINDOWS  (M3) 

VOLUMF  OF  THE  BOX  DEVICE  (M3 J 

TOTAL  VOLUME  OF  THE  LASER  CAVITIES  (M3) 
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APPFNDIX  F 


NOMENCLATURE 
OVERLAY  SCS 


PAGE  F«3*> 


VCOMB 
VC  S 

VFJFCT 

VEPT 

VLOHOH 

VLDS 

VLRT 

VOPT 

VPS MOW 

VPRS 

VSU80 

VSUPO 

VSYSTM 

VTOTAL 

VTR 

HAN 

HAHL 

HRASE 

HRXDEV 

HCP 

HCS 

HEP 

HFPHLT 

HEPP3 

HEPR1 

HFPR2 

HEPR3 

HFPR* 

HFSR1 

HFSR? 

HFSR3 

NLP 

NLS 

NLSHLP 

HLT 

HNB 

NPSNLP 

HPP3 

HPUR6E 

HTR 

XFPP3 

XIP 

VFS 


TOTAL  VOLUME  OF  THE  LASER  COMRUSTORS  (M3) 

VOLUME  OF  THF  COOL  INC.  SYSTFM  IM3) 

TOTAL  VOLUME  OF  THF  FJFCTORS  (M3J 

VOLUME  OF  THF  EJECTOR  PR  I  HART  RFATANT  TANKAGE  (M3) 

VOLUME  OF  THE  LASER  OF  V  ICE  HAROHARE  (M3) 

VOLUME  OF  THF  LASER  DEVICE  SYSTEM  IM31 
VOLUME  OF  THE  LASER  REACTANT  TANKAGE  fM3J 
TOTAL  VOLUME  OF  THE  LASER  OPTICS  IM3I 
VOLUMF  OF  THE  PRESSURE  RECOVERY  HAROHARE  IM3) 

VOLUME  OF  THE  PRESSURE  RECOVERY  SYSTEM  IM3) 

TOTAL  VOLUME  OF  THE  SUBSONIC  DIFFUSLRS  fM3J 

TOTAL  VOLUME  OF  THF  SUPERSONIC  DIFFUSERS  f  M3  J 

TOTAL  VOLUME  CONTAINING  THE  SYSTEM  [M3J 

TOTAL  VOLUME  OCCUPIED  BY  THE  SYSTEM  IM3J 

TOTAL  VOLUME  OF  THF  TRANSITION  SECTIONS  IM3J 

AERO-HINOOH  MASS  FLOH  RJTF  IKG/S1 

AERO-HINDOH  FLUID  LEAKAGE  RATE  IKG/SJ 

HIOTH  OF  A  NOZZLE  BASE  IM31 

HIOTH  OF  THE  ROX  DEVICE  IM3J 

HIOTH  OF  A  COMBUSTOR  BODY  IM3J 

COOLING  SYSTEM  MASS  FLOH  RATE  IKG/SJ 

EJFCTOR  PRIMARY  REACTANT  MASS  FLOH  RATE  IKG/SJ 

EJECTOR  PRIMARY-TO-TOTAL  LASER  MASS  FLOH  RATIO 

MASS  FRACTION  OF  LASER  PRIMARY  PRODUCT  3  (FREE  FLUORINE) 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  1 

mass  FRACTION  OF  LASER  PRIMARY  REACTANT  2 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  3 

MASS  FRACTION  OF  LASER  PRIMARY  REACTANT  A 

MASS  FRACTION  OF  LASER  SECONDARY  REACTANT  I 

MASS  FRACTION  OF  LASER  SECONDARY  REACTANT  ? 

MASS  FRACTION  OF  LASER  SECONDARY  REACTANT  3 

LASER  PRIMARY  REACTANT  MASS  FLOH  RATE  IKG/SJ 
LASER  SECONDARY  REACTANT  MASS  FLOH  RaTF  JKG/S) 

LASER  SECONOARV-TO-PRIMAHY  REACTANT  MASS  FLOH  RATIO 
TOTAL  LASER  MASS  FLOH  RATE  (KG/SJ 
HIOTH  OF  A  NOZZLE  RANK  CMJ 

LASER  CAVITY  PURGF-TO-PRIMARY  REACTANT  MASS  FLOH  RATIO 
MASS  FLOH  RATE  OF  LASER  PRIMARY  PRODUCT  3  (FREF  FLUORINE) 
[KG/SJ 

CAVITY  PURGE  MASS  FLOH  RATE  IKO/51 

HIDTH  OF  A  TRANSITION  SECTION  ENTRANCE  (MI 

MOLE  FRACTION  OF  LASER  PRIMARY  PRODUCT  3  (FREE  FLUORINE) 

LASFP  PRIMARY  PROOUCT  MOLAR  FLOH  RATE  IKMOLE/SJ 

ALPHANUMERIC  SYMBOL  DESIGNATING  A  POSITIVE  RESPONSE 
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APPFNOIX  F 


NOMENCLATURE 
OVERLAY  SCS 


PAGE  f 


REACTANT  STORAGE  MOOF  NOTATION  SCHEME 


THE  STORAGE  MOOT  descriptor  ARR 
CFSCRIPTOP  (RON)  AS  FOLLOWS! 

I  descriptor 
I  BF  ACTANT 
?  PHASE 
s  container 

4  STORAGE  TEMPERATURE  <K> 
STOPAGF  TIME  (SI 

ANO  BY  FLUID  (COLUMN)  AS  FOLI  OW 

J 

1  DESCRIPTOR 
?  LASER  REACTANT  ] 

3  L ASF R  REACTANT  ? 

*  LASER  REACTANT  3 

5  LASER  REACTANT  A 


Yt  STMODE(I.J),  STORES  DATA  RY 


I  DESCRIPTOR 
h  STORAGE  TIMF  (DAYS) 

T  STORAGE  PRESSURE  (PA) 
ft  STORAGE  PRESSURE  (PSl) 
9  REACTANT  TEED  SYSTEM 
10  MATERIAL 


t  LASER  REACTANT  ft 
1  AERO-WINDOW  FLUTD 
A  COOLING  SYSTEM  FLUID 
R  EJECTOR  PEACTANT  l 
10  EJECTOR  REACTANT  2 


SOME  POSSIBLE  ALPHANUMERIC  DESCRIPTOR  VALUFS  ARE l 


REACTANT  -  C?H4,  0?*  F2.  HF.  H?,  IRFNA 

MMH  <  NF3.  N2t  N?H4 
F2/ME  -  Ft  AND  ME  GAS  MIXTURE 
NF3/NC  -  NFS  ANO  HE  GAS  MIXTURE 
N2-AW  -  N?  FOR  THF  AEPO-MINOOW 
MPO-CS  -  H?0  FOR  THE  COOLING  SYSTEM 


PHASF  -  GAS 

LIO,  LIQUID 


CONTAINER 


SPH,  SPHFRE 
CYL.  CYLINDER 


REACTANT  FEED  SYSTEM  -  BLO.  RLOW-UOWN 

HPS.  HEATER  PRESSURIZATION  SYSTEM 
PFS.  PUMP  FEED  SYSTEM 
PGS,  PRESSURIZED  GAS  SYSTEM 
RFP.  RADI ATOR-F AN-PUMP 

MATERIAL  -  AL.  ALUMINUM 

SS*  STAINLESS  STEFL 
TI.  TITANIUM 
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APPFNDIX  f 


NOMENCCATUOF 
OVfflCAY  SCS 


PAGE  F-3G 


AF 

G 

! 

II 

J 

K 

MCS 

MC?H* 

Mr>? 

MF? 

MHf 

MM? 

MH?0 

MIRFNA 

MMMH 

MMT 

MNF3 

MN? 

MN?H* 

MPGS 

MTANK 

MTOTAC 

MTTHPS 

MTTPGS 

MVT 

MX 

PMF 

PS 

Pfl 

RTIME 

STAX 

STCS 

STC?H4 

STD? 

STF? 

STHE 

STH? 

STIRFNA 

STMMM 

STMOOt 

STNF3 

STM? 

STN?HA 

VCS 

V  I ANK 

vttmps 

VTTPGS 

XFF? 

XFHF 

XFNF3 

7 


NOMFMCLATURf  for  subroutines  vmax,  vmcs,  vmc?h*,  vmd?, 

VMF ? ,  VMMf,  VMM? ,  7M I RFNA ,  VMMMM.  VMNF3.  VMM?,  yMN?Hi 


AOIAHAT1C  FACTOR 
SPECIFIC  MEAT  RATIO 
DO  COOP  INDEX 
00  COOP  INOEX 

STORAGF  MOOE  CONTROC  VARIARCE 
STORAGE  MODE  CONTROC  ARRAT 
MASS  OF  THE  COOCIMG  SYSTEM  (K81 
OECIVERFO  MASS  Or  C?H»  I  KG ) 
DECIVFRED  MASS  OF  0?  [KOI 
OF 
OF 
OF 
OF 
OF 
OF 


DECIVFREO 
OECIVERFO 
DEC  I VEREO 
OECIVERFO  MASS 
OECIVERFO  MASS 
OECIVERFO  MASS 


MASS 

MASS 

MASS 


OECIVFRFD  MASS 
OECIVERED  MASS 
OECIVERFO  MASS 


F?  (KG) 

HE  tKGI 
H?  {KOI 
H?0  (KC) 

IFRNA  [KG] 

MMH  I KG) 

TANK  ANO  FCUID  MASS  USING  MINIMUM  THICKNESS  EOUATIONS  IKG) 
OECIVERFO  MASS  OF  NFS  (KG) 

OF  N?  (KG) 

OF  N?H*  IKG) 

OF  FCUIO  FRO:'-  A  PRESSURIZED  GAS  SYSTEM  IKG) 

MASS  OF  REACTANT  TANKAGE  ANO  FCUIO  (KG) 

OECIVERFO  MASS  OF  GAS  MIXTURE  IKG) 

MASS  OF  TANK  ANO  FCUIO  FOR  A  HEATER  PRFSSURIZATION  SYSTEM  IKG) 
MASS  OF  TANK  ANO  FCUIO  FOR  A  PRES5URI7F0  GAS  SYSTEM  CK6) 

TANK  ANO  FCUIO  MASS  USING  VARIARCE  THICKNESS  EOUATIONS  IKG) 
NOCECUCAR  WEIGHT  CKG/KNOCE) 

partiac  pressure  or  he  ipai 

REACTANT  STORAGE  PRESSURE  (PA) 

COMRUSTOR  OR  N0Z7CE  STAGNATION  PRE5SURF  ,'PA) 

RUN  TIME  (S) 

STORAGE  MOOE 
STORAGE  *  30E 
STORAGE  MOOE 
STORAGE  MODE 


FOR 
FOR 
FOR 
FOR 
FOK 
for  he 
for  H? 
FOR  I RFNA 
FOR  MMH 


N?-AW 

MEC-CS 

C7.H* 

0? 

F? 


DESCRIPTOR  OATA  ARRAY 
DESCRIPTOR  OATA  ARRAY 
DESCRIPTOR  DATA  ARRAY 
DESCRIPTOR  OATA  ARRAY 
STORAGE  MOOE  DESCRIPTOR  OATA  ARRAY 

STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY 

STORAGE  MODE  DESCRIPTOR  OATA  ARRAY 

STORAGE  MOOE  DESCRIPTOR  DATA  ARRAY 

STORAGE  MOOE  DESCRIPTOR  OATA  ARRAY 

REACTANT  STORAGE  MODE  DESCRIPTOR  ARRAY 
ST0RA6E  MOOE  DESCRIPTOR  DATA  ARRAY  FOR  NF3 

STORAGE  MODE  DESCRIPTOR  OATA  ARRAY  FOR  N? 

STORAGE  MOOE  DESCRIPTOR  OATA  ARRAY  FOR  N?H* 

VOCUMC  OF  THE  COOCING  SYSTEM  (M3) 

VOCUMF  OF  THE  REACTANT  T ANK AGF  (M3) 

VOCUME  OF  A  MFATCP  PRESSURIZATION  SYSTFM  (M3) 
VOCUME  OF  A  PRESSURIZED  GAS  SYSTEM  (M3) 

MOCC  FRACTION  OF  F? 

MOCF  FRACTION  OF  HE 
MOCF  FRACTION  OF  NFS 
COHPRESSIBICITY  FACTOR 


2bh 


append t*  r 


NOMENCLATURF 

function  statements 


PAGE  f-*0 


FUNCTION  STATFMfNT  GENERAL  NOTATION  SCHEMA 


AA$M 


PPpM 

POPM 

RKO 

PORN 

TOtN 


WM 


■  tSENTPOPIC.  COMPRESSIBLE  FLOP  FOUATtON  FOP  A/A*  AS  A  FUNCTION 
OF  MACH  NUMBER  .  _ 

•  tSENTPOPIC*  COMPRESSIBLE  FLOP  EQUATION  FOP  P/PO  AS  A  FUNCTION 
OF  MACH  NUM0CR 

«  JSENTPOPIC*  COmPRFSSIRLE  FLOP  EQUATION  FOR  PO/P  AS  A  FUNCTION 
OF  MACH  NUMBER 

«  DENSITY  FROM  THE  IOEAL  GAS  EQUATION  OF  STATE 

•  ISENTPOPIC*  COMPRESSIBLE  FLOP  EQUATION  FOR  RO/R  AS  A  FUNCTION 

OF  MACH  NUNRCR  _  ^ 

»  '.SFNTPOPIC*  COMPRESSIBLE  FLOP  EQUATION  FOR  Tft/T  AS  A  FUNCTION 
OF  MACH  DUMBER 

•  JSENTROPIC.  COMPRESSIBLE  FLOP  EQUATION  FOR  THE  OIMCNSIONLESS 
MASS  FLOP  RATE  AS  A  FI  JCT10N  OF  MACH  NUMBER 
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APPCNOlX  0  CLAP  SAMPLE  INPUT/OUTPUT 

SAMPLE  CASE  1  (OCTAULT  CASE) r  INPUT 


ARC  NEW  COMPOST  I  OH  CMEMI STAY  INPUTS  REOUIRCD* 
NO 


ARC  HEM  LASER  DEVICE  INPUTS  REOUAEb’ 


*pfcM3l*  ft 


Ct_»P  SAMPLE  INPUT /OUTPUT 


NCTSi 

PS 

• 

. /t»41*E*0S 

PA 

Nt  • 

.MOOSE '01 

NOTE  i 

PS 

• 

.PMIK't! 

PA 

NS  • 

.  SOSOOSE'OI 

NOTE  i 

PS 

• 

. T704 1 tE'OS 

PA 

NS  • 

. SOSOOSE'OI 

NOTE  i 

PS 

• 

PA 

NS  • 

.SOSOOSE'OI 

NOTE  1 

PS 

m 

.OUltt'tt 

PA 

NS  * 

. SOSOOSE'OI 

NOTE  i 

PS 

• 

.  S7041 tE'OS 

PA 

NS  - 

.MOOSE  ‘01 

NOTE  i 

PS 

« 

. ?7041 It  *01 

PA 

NS  • 

.MOOSE  *01 

NOTE  i 

PS 

• 

.ttMIlfCI 

PA 

NS  • 

.  JOS 00 SE  *01 

NOTE  i 

PS 

• 

. 17041 I£»0S 

PA 

NS  • 

.  SOSOOSE'OI 

NOTEt 

PS 

. (7041 SE*tl 

PA 

NS  • 

.  SOSOOSE'OI 

APE  new  srsrtn  CALCULATION  INPUTS  OEQIMAED? 


NO 


APPENDIX  0  CLAP  SAMPLE  INPUT/OUTPUT 

SAMPLE  CASE  I  (OEEAULT  CASE! I  OUTPUT  (SI  UNITS* 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CLAP! 

WRITTEN  BYI  C.L.  ADAMS 

A. L.  A DOT 

R. D.  MASSEY 
C.O.  MIKKELSEN 

S. E.  MORR 
R.L.  OOLUKIAN 

B. J.  WALKER 

1  JANUARY  77 

AEROOYNAMICS  GROUP  (ORDMI-TOKI 
SYSTEM  simulation  DIRECTORATE 
U.S.  ARMY  MISSILE  RESEARCH  t  DEVELOPMENT  COMMAND 
REDSTONE  ARSENAL*  ALABAMA  3S809 

RUN  DATE  12/05/78 


combustion  chemistry  section 


INITIAL  DATA I 


AEXP 

A  .3M93SE-02 

M? 

ALPHA 

.88?700€*00 

OEORNE 

»  or 

Ml 

2 

•TOMS  C 

N? 

•  A 

ATOMS  M 

N3 

A 

ATOMS  Y 

NA 

«  3 

ATOMS  E 

WP6 

0. 

KO/S 

N? 

WPR1 

•  .362160E— 02 

KB/S  C?HA 

WPRZ 

.17ZAI6E-01 

KG/S 

HE 

WPR3 

*  0. 

KG'S  NZ 

WPRA 

.5710938-01 

KO/S 

NIE3 

WSR1 

«  .A37?S0E-«? 

KB/S  0? 

WSRZ 

.338S18E-01 

KG/S 

HE 

WSR3 

«  0. 

KB/'S  N? 

RESULTANT  DATA! 

rOAA 

.19l592E«00 

KMOLE/S-M? 

OMEGA 

.3A79«IE»0? 

OMEBTRW 

.322770EG02 

PSIC 

.1269698*02 

PStL 

•??G931E«0? 

PSTLTRW 

.19S80IE*0? 

« 

■2lSSA?E*08 

J/KMOLE 

RC 

.2076888*01 

RL 

.2S1301EA01 

RLE 

.2209218*02 

WE  CPI 

.19S9A3CPOO 

CEA 

XECP1 

.1602388-01 

CEA 

WE CP? 

.B89077E-01 

ME 

xrcP2 

.320A76E-OI 

HE 

WTCP3 

•1S6220EP00 

OE 

xrcpa 

.S361A9E-01 

nE 

WE  CPA 

.A3971AEWOO 

ME 

XE^PA 

.7922368*00 

HE 

WECP5 

.969S68E-01 

N? 

XECP5 

.2A9S96E-01 

N2 

WECP6 

.  22^56 OE-0 1 

0 

xrcPG 

•811199E-01 

0 
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APPENDIX  <J 


CLAP  SAMPLE  INPUT/OUTPUT 


LASER  DEVICE  SECTION 
INITIAL  DATA* 


rrerac 

• 

.tOOOOOE«BI 

candle 

m 

.1745338*00 

PAD 

01 

• 

.177800E-02  M 

01S 

m 

•669S34E-04 

M 

03 

■ 

.13T160E-0Z  M 

035 

m 

.6050008-04 

M 

OEOMPN 

• 

ZD 

OEOMSN 

m 

ZD 

WBASE 

• 

.349250E-01  M 

fWfo 

m 

.3492508-01 

M 

lcav 

• 

.7620C0E-01  M 

LPNOZ 

m 

.2501908-02 

M 

lsnoz 

n 

.18S166E-02  N 

NSPNOZ 

9 

.1038468*01 

PKfRAC 

■ 

•0O343l£*OO 

PIO 

» 

.19210*8*07 

PA 

T30 

m 

•600000E*03  K 

T70 

9 

.3000008*03 

K 

RESULTANT  DATA* 


POINT  1  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  OASED  ON  TME  NOZZLE  STAONATION 
fCOMOUSTOR)  TEMPERATURE 


A! 

9 

.1732408*00  S-M2/KM0LE 

AIA1SE 

• 

.1784TIE*0Z 

A1 AISfi 

9 

.  Z(>S958E<*0Z 

61 

• 

.14S968E*01 

MWl 

9 

.1244978*02  KO/KMOLE 

Ml 

■ 

•491 2668*0 1 

npnoz 

U 

.4I5138E*04  S/KMOLE 

PI 

9 

.4923238*04 

PA 

PlO 

9 

.1921058*07  PA 

RE1 

9 

.2224228*04 

R1 

9 

.2977448-01  KB/M3 

RIO 

9 

.1774558*01 

KQ/M3 

T1 

9 

.Z47594E*03  K 

T10 

9 

.1621008*04 

If 

POINT  2  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  RASED  ON  THE  NOZZLE  EXIT 
TEMPERATURE 


AZ 

9 

.1574058*00  S-M2/KM0LE 

oz 

-  .1539838*01 

MWZ 

9 

.1244978*02  KO/KMOLE 

MZ 

•  *49126 6E*01 

PZ 

9 

•49Z3Z3C*04  PA 

PZO 

■  •11921058  *  07 

PA 

RZ 

9 

•Z07744E-81  K0/M3 

RZO 

»  .1774S5E*0l 

KG/N3 

TZ 

• 

.2475948*03  K 

TZO 

■  .1621008*04 

K 

POINT  3  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  STAGNATION 
ICOMBUSTORI  temperature 


A3 

9 

•135591E*00  S-M2/XM0LE 

A3A3SE 

9 

.1313158*02 

A3A3S8 

9 

.2000008*02 

03 

9 

.1616798*01 

MW3 

m 

•400551E401  K8/KM0LE 

M3 

■ 

.5307318*01 

NSNOZ 

9 

.4311048*04  S/KMOLE 

P3 

■ 

.2395938*04 

PA 

P30 

9 

•917516E*06  PA 

RC3 

■ 

.1878298*04 

R3 

r 

.1060368-01  K9/M3 

R30 

M 

.7367048*00 

KG/M3 

T3 

• 

•6204548*0?  K 

T30 

9 

•600000E*03 

K 

W3M1 

• 

•4902208*00 

X3X1 

9 

.1523708*01 

POINT  A  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASEO  ON  TME  NOZZLE  EXIT 
TEMPERATURE 


A4 

V 

•138095c *00  S*M2/KMOLE 

04 

-  .1613228*01 

MN4 

9 

.4005518*01  KO/KMOLE 

M4 

•  .5302318*0] 

P4 

9 

.2395938*04  PA 

P40 

»  .9175168*06  PA 

R4 

m 

.1060368-01  KB/M3 

R40 

■  .7367048*00  KO/M3 

T4 

9 

.6204548*02  K 

T40 

*  .6000008*03  K 

W4WZ 

9 

.4902288^00 

X4XZ 

•  .152370E*0l 
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APPCNOIX  0 


clap  sample  input /out put 


POINT  5  CONSTANT«<AR€A  MIXING  RCSION  EXIT 


A5 

« 

.293579E»00  S-M2/KMOLE 

OS 

■ 

.158l7SE*01 

MWS 

■ 

.73S148E*01  K8/KM0LE 

MS 

■ 

•  489482E  *01 

PS 

■ 

.391429CP04  PA 

P30 

• 

.nesAoe*07 

PA 

R5 

■ 

.2692172-01  K8/M3 

RSO 

• 

.9539722*00 

KG/M3 

TS 

• 

.  12S558E<*03  K 

T50 

■ 

.1024542*04 

K 

WSM2 

• 

.1A9023C*01 

X5X2 

■ 

.2523702*01 

POINT 

6 

ISCNTROPIC 

expansion  rcoion  EXIT 

A6 

■ 

.S77S9SEPOO  S-M2/KM0LE 

88 

• 

.1581782*01 

MV6 

m 

.7351462*01  KB/KMOLE 

MS 

m 

•6143932*01 

P6 

. 12921 1E*04  PA 

P60 

m 

.1105402*07 

PA 

R6 

m 

.133595E-01  KB/M3 

RAO 

m 

.9539722*00 

KO/M3 

T6 

m 

.8551752*02  K 

TAO 

m 

•1024542*04 

K 

WAV? 

m 

•1A9023E*01 

XSX2 

9 

.2523702*01 

POINT 

T 

MIRROR 

PURSE  CONDITIONS 

87 

« 

.139982EW01 

MW7 

* 

.2801342*02 

KO/KMOLE 

T70 

W7W2 

B 

0. 

X7X2 

• 

S. 

POINT 

8 

LASER  CAVITY  EXIT 

AS 

m 

.1022542*01  S-M2/KK0LE 

88 

■ 

.1577962*01 

Mve 

9 

.7211492*0!  A 8 /K MOLE 

MS 

.2262032*01 

PS 

• 

.5110632*04  PA 

P80 

• 

.6092132*05 

PA 

RES 

• 

.3792532*05 

R8 

U 

.795592E-02  K0/M3 

RSS 

m 

.3026232-01  K8/M3 

TS 

9 

.5571612*03 

1C 

T80 

m 

.13S100E*04  K 

*8*2 

9 

.1490232*01 

*6X2 

m 

.2572692*01 
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APPENDIX  s 


CLAP  SAMPLE  INPUT/OUTPUT 


PRESSURE  RECOVERY  SECtlOH 
INITIAL  DATA! 


A3A2 

9 

•30C000E*01 

AT  Aft 

■ 

•3000002*01 

eject 

m 

CAE 

ETA12 

m 

.7800002*00 

05 

m 

•1?9000C*01 

MW5 

w 

•202040E*02  kO/KHOLE 

P50 

m 

•3l02ft4E*07  PA 

P7 

• 

•10132Se*06  PA 

tsb 

m 

•28l480E»04  P 

RESULTANT  DATAl 


POINT 

1 

LASER  CAVITY  EXIT  ANO  NORNPL  SMOCK  DIFFUSER 

ENTRANCE 

Al 

m 

•102Z5A€*01  S-M2/KM0LE 

01 

m 

•157T9ftE*01 

Ml 

m 

•72ll40E*01  K8/KM0LE 

Ml 

■ 

•2262B3E*01 

PI 

m 

.5110632*04  PA 

P10 

•ft09213E*05 

PA 

Rt 

• 

•7R5592E-02  K6/M3 

RIB 

m 

•3B2623E-01 

KG/M3 

T1 

m 

•SS7lftlE*03  K 

T10 

u 

•13BI00E*04 

K 

POINT 

2 

NORMAL 

SMOCK  DIFFUSER  EXIT  ANO  SUBSONIC 

DIFFUSER  ENTRANCE 

A2 

9 

•10225A£*01  S-M2/KMOLE 

ETA12 

■ 

•750000E*00 

02 

m 

•1S7796E*01 

MB2 

9 

•  72U49E*01 

kg/kmole 

M2 

m 

•5SA25SC*00 

P2 

9 

•231501E*05 

PA 

P20 

m 

.29A384E«05  PA 

R2 

m 

•15B7TSE-01 

KG/M3 

R20 

9 

•1BA892E-01  KO/M3 

T? 

m 

•126465E»04 

K 

T20 

m 

•130lOOE*OA  K 

B2M1 

m 

•100000E*OI 

*2X1 

m 

•100000E*01 

POINT 

3 

SUBSONIC  DIFFUSER  EXIT  AND  SUOOEN 

ENLARBEMENT  ENTRANCE 

A3 

m 

•30A763E*01  S-M2/KM0LE 

ETA23 

m 

•9fc4251E*00 

03 

m 

•15779ft£*0l 

MB3 

m 

•721149E*01 

KG/KMOLE 

M3 

9 

•1S7029E*00 

P3 

• 

•278412E*05 

PA 

P30 

9 

•203862C*0S  PA 

R3 

■ 

•176106E-01 

KG/M3 

R30 

m 

.178283E-01  KO/M3 

T3 

■ 

•137I23E*04 

K 

T30 

9 

•138100E*04  K 

B3B1 

■ 

• 1 00000E*01 

X3X1 

9 

•10OO00E«0I 

POINT 

4 

CONSTANT-AREA,  SUBSONIC-SUPERSONIC  EJECTOR  SECONDARY  NOZ21E  EXIT 

A4 

9 

•120834E»01  S-M2/KM0LE 

OA 

9 

. 157796E*01 

MBA 

9 

.72ll4«E*01  KO/KMOLE 

ma 

9 

•775000E*00 

P4 

9 

•1B3449C«05  PA 

PAB 

9 

•283B62E*05 

PA 

P4 

9 

•13S21SE-01  K0/M3 

RAO 

9 

•1782B3E-01 

KO/M3 

TA 

u 

•Il7ft76£*04  K 

T40 

m 

•138100E»04 

K 

BAB1 

m 

•100000E-01 

X4X1 

■ 

•100000E*0I 

POINT 

5 

CONSTANT-AREA,  SUBSONIC-SUPERSONIC  EJECTOR  PRIMARY  NOZZLE  EXIT 

AS 

m 

•39l5A5£*00  S-M2/KM0LE 

05 

■ 

•129000E*0l 

MBS 

9 

•2020A0E«02  KO/KMOLE 

MS 

9 

•3BS90SE*01 

P5 

Wj 

•18S938E*0S  PA 

P50 

9 

•3102ftAE*07 

PA 

RS 

« 

•5071A3E-01  K8/M3 

RSO 

9 

•2«7851E*0l 

KO/N3 

TS 

9 

•890936E*03  K 

T50 

U 

•2fci400E*04 

K 

BSB1 

9 

•28A443E*01 

X5X1 

9 

•1B1527E*01 
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APPENDIX  s 


CLAP  SAMPLE  INPUT/OUYPUT 


POINT  6  CONSTANT-AREA.  SUBSONIC-SUPERSONIC  EJECTOR  EXIT  A NO  SUBSONIC 
OIFFUSER  ENTRANCE 


A6 

MM6 

P6 

f*4> 

T6 

W6W1 


|S99B9E«01 

S-M2/KM0LE 

06 

■ 

•I38S24E*01 

137570E«02 

KO/KMOLE 

M6 

9 

•482248E+00 

899720E*05 

PA 

P60 

m 

. 10S327E*06  PA 

6B3803E-01 

KO/M3 

R60 

o 

•7O613SE-01  K0/M3 

2177«TE*04  K 

T60 

9 

•227459E.04  K 

30444 3E«01 

X6XI 

9 

.201527E«01 

POINT  T  SUBSONIC  DIFFUSER  EXIT 

*7  ■  .479966E*01  S-M2/KMDLE  ETA67  ■  .97587IE*00 

G7  ■  .13®S24E*01  MM7  *  .1375T0E*02  kG/KMOLE 

M7  «  .1420S2E*00  P7  ■  .101325E*06  PA 

P70  •  .102786E-0*  PA  R7  ■  .739935E-01  KO/M3 

R70  «  .747098E-01  K6/M3  77  ■  .226579£«04  K 

T70  •  .2274S9E*04  K  N7N1  ■  .384443E*0I 

X7XI  •  *201S27E«01 
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APPENDIX  0 


CLAP  SAMPLE  INPUT /OUTPUT 


SYSTEM  CALCULATION  SECTION 


INITIAL  OATAT 


ereact  - 

IRENA/WMH 

NBANK  - 

1 

neject  * 

1 

RTIflE  » 

.600000E«OP  s 

VPP3  • 

.1C9645E*#: 

KO/S 

REACTANT  ST9RA6E  METHOD 

react 

ceha 

ME 

ME  3 

DP 

phase 

MS 

OAS 

MS 

OAS 

com 

$RH 

SPH 

SPH 

SPH. 

STENP 

390.0  K 

300.0  K 

300.0  K 

30C.O  K 

stine 

INEINITE 

INEINITE 

INEINITE 

INEINITE 

SPRES 

4.1E«07  PA 

4.1E*07  PA 

1.2E+07  PA 

4.1E«07  PA 

(6000  PSD 

(6000  PSD 

(1000  PSD 

(6000  PSD 

rests 

old 

OLD 

OLD 

old 

MATER 

TI 

TI 

ss 

tt 

REACT 

NE-AV 

H20-CS 

MMM 

IRENA 

PHASE 

•AS 

LIO 

LIO 

LIO 

com 

SPH 

SPH 

SPH 

SPH 

stemp 

300.0  K 

300.0  K 

300.0  E 

300.0  K 

stime 

INEINITE 

INEINITE 

INEINITE 

INEINITE 

SPRES 

4.lE*07  PA 

2.BE*06  PA 

i.;*5*P0 

l.?5*P0 

(6000  PSD 

(400  PSD 

RES  VS 

OLD 

POS 

POS 

POS 

MATER 

TI 

TI 

TI 

AL 

RESULTANT  DATA« 
SYSTEM  SCALE-UP  EACTOR 
XLP  ■  .90156 7E *00  '(MOLE/S 


LASER  DEVICE  SYSTEM  VOLUME/MASS 


M1NJ 

m 

.50256 2E*02  KO 

MOB 

m 

.B353TSE*02  KB 

MOASE 

m 

»7®S727E*02  KO 

VCOMO 

■ 

•592590E-01 

M3 

MCAV 

9 

.23210EE«02  KO 

VCAV 

* 

.549746E-01 

M3 

MAM 

m 

.U4447E*02  KO 

VAN 

■ 

.100250C-01 

M3 

MCS 

9 

.62666SE»03  KO 

VCS 

■ 

.634179E«00 

M3 

mopt 

m 

.114917E'04  KO 

VOPT 

9 

.107473E.01 

M3 

MOS 

9 

.13*47SE*03  KO 

ML  WEB 

9 

.669069E*0?  KO 

ML LINE 

m 

»259070C*02  KO 

mldhov 

9 

KO 

VLDHOM 

9 

•IB3397E*01 

M3 

mlrt 

n 

•900326E«04  KO 

VLRT 

9 

.132S11E*02 

M3 

ML  OS 

9 

^il340K*05  KO 

VLDS 

tt 

.iSn51E»0?  m3 

arpenoi*  a 


CLAR  SAMPLE  INPUT /OUTPUT 


pressure  recovery  system  volunp/nass 


mSUPO 

a 

.?504S9C*03  KB 

VSUPD 

a 

,S12733t*00  M3 

msubo 

a 

.94l7162*02  KB 

VSU60 

a 

.233867E*00  m3 

MEXCT 

a 

.1S613SE«0S  KB 

VEJECT 

a 

.1013762*03  m3 

NfRREO 

a 

.klB*HBC«03  KB 

MtLItt? 

a 

.67&493E01  KB 

HfTInl/w 

a 

;iB«i3BC«B5  KB 

VPRMOV 

a 

•1021232*03  m3 

MERT 

s 

.A07S5SE«BA  KB 

VERT 

a 

•3900992*01  M3 

MPRS 

a 

,2bT«94E*05  KB 

VPRS 

a 

.10602S2*03  M3 

ststem 

VOLUME /MASS  SUMMARY 

ml  OS 

a 

.i 134022*05  KB 

VLOS 

a 

.15H51E*P?  M3 

mPRS 

a 

•20l594C*05  KB 

VPRS 

a 

.1060242*03  m3 

MM  2  SC 

a 

.3428?4E«03  KB 

mtotal 

a 

.3lS*2SE^85  KB 

vtotal 

a 

»121139E*03  m3 

vsvstm 

a 

•2422TTE*03  m3 

MBASE 

a 

.14?180E»02  M 

LLOS 

a 

•1V9938E*00  M 

l«S 

a 

»337‘i2BE*02  M 

lbxdev 

a 

.)3«22«2*B2  M 

WBXDEV 

a 

•1640982*02  M 

HBXOEV 

a 

.4302132*01  M 

VBXOCV 

a 

.23B479C*«4  m3 

APPENOIX  a 


CLAP  SAMPLE  INPUT/0UTPUT 


use*  dcvicc  section 

INITIAL  DATA! 


BRERAC 

P 

.1000««C*01 

CANDLE 

• 

.ioooooe*02  DEO 

D| 

* 

•7000002-01  IN 

01S 

m 

.2635962-02 

IN 

D3 

• 

.5400002-01  IN 

D3S 

m 

•270000E-02 

IN 

8EUMPN 

P 

20 

SCOMltN 

m 

ZO 

HRASE 

• 

•1375002*01  IN 

yya 

WTO 

m 

•1375002*01 

IN 

LCAV 

* 

.3#OO0OC»O1  IN 

LPNOZ 

m 

.9050002-01 

IN 

LSNOZ 

P 

.729000C-01  IN 

NSrNOZ 

m 

.1030462*01 

pkerac 

P 

.0034312*00 

PtO 

m 

.2706252*03 

PSIA 

TJ0 

P 

•6000002*03  K 

TTO 

m 

•3000002*03 

K 

RESULTANT  DATA! 

point  i  primary  nozzle  em  -  conditions  rased  on  the  nozzle  staonution 
(COMBUSTOR!  temperature 


At 

m 

.maesc*03  s-inz/lbmole 

A1A1SE 

• 

•1784712*02 

At AlSO 

m 

.2655582*02 

SI 

w 

.1459682*01 

M91 

p 

.124497E*02  L BN /L DHOLE 

HI 

m 

•4912662*01 

NPNOZ 

p 

.1883022*04  S/LBHOLE 

PI 

m 

•3692732*02 

TORR 

RIO 

p 

.2706252*03  PSIA 

RE1 

m 

.2224222*04 

RI 

p 

.297T44E-04  GH/CM3 

RIO 

m 

•ITT4S5E-02 

GN/CM3 

Tl 

m 

.2475942*03  K 

no 

m 

.1621002*04 

K 

POINT  2  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  EXIT 

temperature 


A2 

P 

.1107222*03  S-lM2/LBH0tr 

02 

m 

.1539632*01 

H V? 

P 

.1244672*02  LM/LBMOLE 

M2 

• 

.4912662*01 

P? 

P 

•3692732*02  TORR 

P20 

m 

•270625£*03 

PSIA 

R? 

P 

.2977*42-04  ON/CN3 

R2 

m 

.I77455E-02 

OH/CH3 

T? 

P 

.2475942*03  K 

T20 

m 

.1621092*04 

K 

point  3  seconoarv  nozzle  exit  -  CONDITIONS  BASED  ON  THE  NOZZLE  STAGNATION 
(COMBUSTOR!  TEMPERATURE 


A3 

9 

.953294E*02  S-IM2/LBM0LE 

A3A39C 

V 

.1313152*02 

A3A3S0 

• 

.2000002*02 

93 

9 

•1616792*01 

MM3 

9 

.4005512*01  LBM/LBMOLE 

M3 

9 

.5302312*01 

MSNOZ3 

9 

.1955442*04  S/L6M0LE 

P3 

9 

.1797102*02 

TORR 

Pi  0 

9 

.1330742*03  PSIA 

RE3 

m 

.10782«2*04 

R3 

• 

.1860362-04  OH/CH3 

R30 

m 

.T36704E-03 

OM/CM3 

T3 

9 

.6204542*02  K 

730 

9 

.6000002*03 

K 

M3M1 

• 

.4902202*00 

X3X1 

9 

•152370E*01 

point  *  SECONDARY  Nozzle  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  EXIT 
TEMPERATURE 


A4 

P 

.9560352*02 

S-1N2/LBHOLE 

64 

■  .1613222*01 

Hm4 

P 

.4005512*01 

LBM/LBMOLE 

M4 

*  .5302312*01 

P4 

P 

.1797102*02 

TORR 

P40 

•  .1330742*03 

PSIA 

R4 

P 

.1660362*04 

GM/CM3 

R40 

■  .7367042-03 

0H/CH3 

74 

■ 

.6204342*02 

K 

T40 

-  .6000002*03 

K 

9492 

P 

«4902ZSE*00 

X4X2 

•  .  1523702*01 
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APPENOIX  6 


clap  sample  imput/output 


POINT  5  CONSTANT-AREA  NlX!N«  REGION  EXIT 


POINT  6 


POINT  7 


POINT  a 


AS 

■ 

.2064062*03  S-IN2/LBMOLE 

65 

NWS 

m 

.7351482*01  L8MA.OMOLE 

MS 

PS 

• 

.293596E*02  TORR 

PSO 

R5 

f 

.2692172-04  GM/CM3 

R50 

T5 

.1285582*03  X 

TSO 

V5M2 

• 

.1490232*01 

XSX2 

ISENTROPIC 

EXPANSION  REGION  EXIT 

A6 

V 

*406298E«03  S-IN2/1.BM0LE 

66 

MV6 

« 

.7351482*01  L6M/L0M0CE 

M6 

P6 

• 

.969l60E*01  TORR 

POO 

R6 

V 

.1335952-04  GM/CM3 

R60 

T6 

m 

.8551752*02  X 

TOO 

W6M2 

w 

.1490232*01 

X6X2 

MIRROR 

PUR62  CONDITIONS 

67 

• 

.1399622*01 

MV7 

T70 

V 

.3000002*03  X 

J7W2 

X7X2 

• 

0. 

LASER  CAVITY  MIT 


AS 

• 

.7189152*03  S-IN2A.0M0L2 

68 

wn® 

m 

.7211492*01  l-OM  .'Ll  MOLE 

M8 

P8 

m 

.3833282*02  TORR 

P80 

R28 

9 

.3792532*05 

RS 

RAO 

9 

.3826232-04  6M/CM3 

T8 

TSO 

9 

.1381002*04  X 

M8W2 

X8X2 

9 

.2572692*01 

• 1581782*01 
.4894822*01 
.8291172*04  TORR 
.953972E-03  GM/CM3 
.1024542*04  K 
.2523702*01 


•1561782*01 
.6143932*01 
•8291 172*04  TORR 
.9539722-03  OM/CN3 
.1024542*04  X 
.2523702*01 


.2801342*02  L9M/LIM0LE 

0. 


.1577962*01 
.2262032*01 
.4569472*03  TORR 
.7955922-05  GN/CM3 
.5571612*03  K 
.1490232*01 
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POINT  I 


POINT  2 


POINT  3 


POINT  * 


POINT  5 


0 

CLAP 

SAMPLE  IMPUT/OCTPUT 

PRESSURE  RECOVERY  SECTION 

INITIAL  DATA! 

A3A2 

m 

.3000002*01 

ATA6 

• 

,300000E*01 

EJECT 

n 

CAE 

ETA12 

m 

«7S0000E*00 

OS 

m 

,1290oOE*Jl 

M¥5 

m 

.2020402*02 

LBM/LRMOLE 

PSO 

m 

.450000E«03 

PS!  A 

PT 

• 

»7O0000E4<>3 

TORR 

TSO 

m 

,2814802 >04 

K 

RESULTANT  DATA! 


laser  cavity  exit  a no  normal  shock  diffuser  entrance 


Al 

m 

.7189152*03 

S-IN2/L8MOLE 

81 

■ 

.1577962*01 

HVl 

m 

.721l49£*01 

LBM/L DHOLE 

Ml 

■ 

.2262032*01 

PT 

m 

.3833?8E*02 

TORR 

P10 

■ 

.4569472*03 

TORR 

Rl 

m 

.795S92E-0S 

GM/CM3 

RIO 

• 

.382623E-04 

0M/CM3 

Tl 

m 

.5S7l61E«03 

K 

T10 

■ 

.1381002*04 

K 

NORMAL 

SHOCK  DIFFUSER  EXIT  ANO  SURSONIC  DIFFUSER  ENTRANCE 

A7 

9 

.7189152*03 

S-IN2A.BHOLE 

ETA12 

■ 

.750000E*00 

0? 

m 

,157796E*01 

MM2 

■ 

.721 149€*01 

LBM/L8M0LE 

N? 

* 

.5642552*00 

P2 

• 

.173640E*03 

TORR 

P20 

m 

.220807E*03 

TORR 

R2 

• 

.1587752*04 

QM/CM3 

R20 

* 

.18489 ft -04 

6M/CM3 

T? 

9 

.1264652*04 

K 

T20 

m 

.13*1002*04 

K 

M2N1 

■ 

.100090E*01 

X2X1 

m 

.1000002*01 

SUM SONIC  DIFFUSER  exit 

ANO  SUOOEN 

ENLAR8EMENT 

ENTRANCE 

A3 

m 

.2156752*04 

S-IN2A.BMOLE 

ETA23 

• 

.9642512*00 

03 

m 

.1577962*01 

M«f3 

9 

.7211492*01 

LBM/L8H0LE 

M3 

w 

.1570292*00 

P3 

m 

.2088262*03 

TORR 

PSO 

9 

.2129142*03 

TORR 

R3 

m 

.1761062*04 

8M/CM3 

R30 

m 

.1702832*04 

ON/ CM3 

T3 

• 

,1371232*04 

K 

T30 

9 

.1381802*04 

K 

V3W1 

* 

.1000002*01 

X3X1 

9 

.10000*2*01 

CONSTANT-AREA,  SuDSONIC'SUPERSONIC 

EJECTOR 

SECOND ARY  NOZZLF  EXIT 

A4 

9 

.8495442*03 

S-IN2/L8HOLE 

84 

• 

.1577962*01 

MM4 

9 

.7211492*01 

lom/lbmolc 

M4 

• 

•7750002*00 

P4 

9 

.1375982*03 

tor* 

P40 

• 

.212914E*03 

TORR 

R4 

9 

.1352152*04  0M/CM3 

840 

■ 

.1782832*04 

6N/CM3 

V4 

9 

.1176742*04 

X 

1T40 

« 

.1381002*04 

K 

*4*1 

9 

.1000002*01 

1(4X1 

9 

.1000002*01 

CONSTANT-AREA,  SUMSONIC-SUPCRSONIC 

EJECTOR 

PRIMARY  NOZZLE  FXIT 

AS 

9 

.2752822*03 

S-IN2/L8HOLE 

85 

■ 

.1290002*01 

MMS 

9 

.202040E*02 

L8M/L8HOLE 

M5 

• 

.3859052*01 

PS 

9 

.1396652*03 

TORR 

P50 

• 

.4500002*03 

PSIA 

R5 

9 

.5071432-04 

GM/CM3 

R50 

• 

.2678512-02 

0H/CH3 

T5 

9 

.8909362*03 

K 

T50 

• 

.2814802*04 

K 

VSVl 

9 

.2844432*01 

X5X1 

m 

.1015272*01 
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APPfNOIX  6 


CLAP  SAMPLE  INPUT/OUTPUT 


POINT  6 


POINT  7 


CONST ANT -ARE A,  SUBSONIC-SUPERSONIC  EJECTOR  EXIT  ANO  SUBSONIC 

otrruscR  entrance 


A6 

■ 

•11?483E»04 

S-IN2/LBNOLE 

86 

-  .138S24E*01 

N*6 

» 

.I37570E*B2 

L8H/LBMOLE 

M6 

x  .482248E^00 

P6 

■ 

.674«46€*03 

torr 

P60 

■  .TB0020E*03 

TORR 

RA 

• 

.6838B3E-0* 

6N/CM3 

R60 

>  .766I85E-04 

6M/CN3 

T6 

■ 

•21TToTE*OA 

K 

T60 

■  .2274SBE*04 

K 

W6W1 

m 

•384443E*01 

X6X1 

•  .26152TE*0I 

SUBSONIC  OIEEUSER  EXIT 

AT 

9 

•33744 BE *84 

S-IN2/LBNOLE 

ETA6T 

■  .975871E*00 

B7 

9 

•138S24E»01 

MW7 

•  .I375TBE*62 

LBN/LBMOLE 

NT 

9 

.14?0S2E*00 

P7 

>  .760000E»03 

TORR 

PTO 

9 

•T70958E*03 

torr 

RT 

•  .T3983SE-64 

6N/CN3 

RTO 

9 

•T4T6B8E-04 

GN/CM3 

T7 

»  .226S79E*04 

K 

TTO 

9 

•227459E*04 

K 

W7N1 

•  .384443E*0l 

XTXI 

9 

.2«1S27E*01 

APPENOIX  6 


CLAP  SAMPLE  INPUT /OUTPUT 


SYSTEM  CALCULATION  SECTION 


INITIAL  OATAl 


E REACT  r 

IPENm/HHH 

NBANK 

■  I 

ntject  ■ 

1 

RTIME 

>  .600000E*02  S 

NPP3  • 

.1S;64SE*04 

6N/S 

REACTANT  STORAGE  METHOD 

react 

C2M4 

HE 

NE3  D2 

PHASE 

•AS 

GAS 

•AS  PAS 

CONT 

SPH 

SPH 

SPH  SPH 

STENP 

300*0  K 

309.0  K 

300.0  K  300 vO  K 

OTIHE 

INEINITE 

INEINITE 

INEINITE  INFINITE 

SPRCS 

4.1E.07  PA 

4.IEP07  PA 

1.2E»07  PA  4.1E*07  PA 

(6000  PSD 

(6600  PSD 

(ISOO  PSD  (6000  PSD 

RESYS 

8L0 

BLD 

BLO  BLD 

HATER 

TI 

TI 

SS  TI 

react 

N2-AN 

H20-CS 

HMH 

IRENA 

PHASE 

•AS 

UB 

LIB 

LIB 

CONT 

SPH 

SPH 

SPH 

SPH 

STENP 

300*0  K 

300.0  K 

300.0  K 

300.0  K 

STINE 

INEINITE 

INEINITE 

INEINITE 

INEINITE 

SPBES 

4.1E*0T  PA 

2.8E+06  PA 

1.25*P0 

1.2S*P0 

(6000  PSD 

(400  PSD 

RESTS 

BLO 

PBS 

PGS 

P8S 

MATER 

TI 

TI 

TI 

AL 

RESULTANT  OATAl 

SYSTEM  scale-up  factor 

XL?  * 

.90IS67E-03 

gmole/s 

laser  OEVICE 

SYSTEM  VOLUNE/HASS 

mtnj  • 

,U0800E*03  LBN 

MCB  « 

.184l69£*u3 

LBM 

MRASC  » 

.I73223E*03 

LBN 

VCOMB 

-  ,209271E*01  ET3 

MCAV  m 

*5II697E»02 

LBM 

VCAV 

»  *194l41E*01  ET3 

MAM  ■ 

.3IS4S0E*02 

LBM 

YAM 

»  .38231 1E*00  ET3 

NCS  * 

.I38il2£*04  LBN 

vcs 

-  .22395Bt'*02  ETj 

hopt  ■ 

.253349E*04 

LBM 

VOPT 

«  ,379538E*02  ET3 

NOS  * 

.305286E^03 

LBM 

NLRREC  » 

,147504E»03 

LBM 

HLLINE  » 

*57H52E*02 

LBM 

HLOHOM  ■ 

7557572^04 

LBM 

vldhdm 

*  .647661E*02  ET3 

HLRT  ■ 

*200252E*0S 

LBM 

VLRT 

■  .469017E*03  ET3 

NLOS  ■ 

*253009E*05 

LBM 

VLOS 

■  .533763E+03  ET3 
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APPCNOIX  0 


CLAP  SAMPL?'  I  N<*UT /OUTPUT 


MSUPO 

Msueo 

NFjecr 

N(frR(G 

mtim 

MPffHOW 

nfrt 

NPfla 


NLOS 

NNS 

NMISC 


(»cssu*te  PceovtRv 

*  «552l67f  «0S  LBN 

•  .207613(*03  LON 

*  LBN 

•  .269230(403  LBN 

■  .100921(402  LBN 


SYSTtN  V0LUUC/HAS3 

VSU»0  ■  .101073(402  (T3 
VSU8D  »  ,82$093f*0i  ft J 
VEJfCT  ■  .350006C*04  (T3 


•  .5545(9(405  LBN 

»  .890504(404  LBN 

■  4644439(405  IBM 


VP9H09  ■  736064 3(*o7  rT3 

V(RT  >  .137767(03  rT3 

VPB5  ■  73^4419(^04  (T3 


SYSTtN  VOL  l)M( /NASS  SUMMARY 


■  .250009(40$  LBN 
»  .444439(405  LBN 
•  .000000(4(3  LBN 


VLOS 

VPRS 


.533703(403  (T3 
.374419(404  rT3 


NTOTAL  •  .702440(405  LBN 

NNASl  m  .507323(40^  ZH 
LP*»S  -  .132803(404  IN 


VTOTAL  •  .4277  #7(404  FT3 
VSYSTN  -  .055595(404  (T3 

LLOS  -  .747789(*01  IN 


LMtKV  »  .133551(404  IN 

HNlO(V  •  .169375(403  IN 


WXWV  -  .646C55(«03  IN 

VBr.OtV  ■  .8457lc>(*Q5  (73 


APPCNOlX  9 

CASE  ?i  IN»UT 


CtAP  5fiMRLC  I NPUT /OUTPUT 


A K  JO  CnWSTION  CHEMISTRY  INPUTS  REQUIRED* 
Yt$ 

SHOULD  INPUT  DATA  K  READ  FROM  TAPE** 

KO 


SELECT  TH«i  LASER  CHEMISTRY  FROM  THE  FOLLWINO  LISTi 

-DF-  FOR  A  rf  CHEMICAL  LASER 
"Hr"  FOA  A  HF  CHEMICAL  LASER 

vr 


2Hf> 


■  ■w.'li.i 


ARPtNOIX  a 


CLAP  SAMPLE  INPUT /OUTPUT 


INPUT  DATA  FOB  THE  COMBUSTION  CHEMISTRY  SECTION  BY  NAMELIST . 
CURRENT  VALUES  ARE: 


•NLCCS 

AEXP 

•  .3C1S3SE-02 

ALPHA 

•  .I02700E,00 

HI 

2 

N2 

*  4 

N3 

•  1 

NX 

3 

MPO 

•  0 . 

HPRt 

•  .3S2160E-02 

MPR2 

.172X1CE-01 

HPR3 

•  0 . 

HPR4 

•  .S71093E-01 

MSR1 

.07250E-02 

NSR2 

•  . 33BSI BC-01 

HSR3 

*  0 . 

•NLCCS  MPO-0.11S197E-02  « 


ARE  NEM  LASER  DEVICE  INRUTS  REQUIRED* 

rts 

SHOULD  INPUT  DATA  BE  READ  FROM  TAFE27 
NO 


APPCNOll  9 


CLAP  SAMPLE  INPUT/OUTPUT 


INPUT  TMt  LASER  PRIMARY  NOZZLE  OEOMETRY  FROM  THE  FOLLDWIHO  LIST: 

"AI“  FOR  A1ISYWYCTRIC  NOZZLES 
“ZD“  FOR  Silt  NOZZLES 

ZD 

INPUT  THE  LASER  SECONDARY  NOZZLE  OEOMETRV  FROM  THE  FOLLOW I  NO  LIST: 

“AI“  FOR  AIISYMMCTRIC  NOZZLES 
“ZD"  FOR  SLIT  NOZZLES 

ZD 


SELECT  A  LASER  DEVICE  INPUT  VARIABLE  FROM  THE  FOLLOWING  LIST: 

-P10"  FOR  THE  PRIMARY  COMtUSTOR  OR  NOZZLE  STAONATION  PRESSURE 
“TI9"  FOR  THE  PRIMARY  COMtUSTOR  OR  NOZZLE  STAONATION  TEMPERATURE 

PIC 


APRCNOI*  0 


CL  A*  SAMPLE  INRUT/OUTRUT 


INPUT  DATA  FOR  TN£  LASER  DCVICC  SECTION  IV  NAMELIST 
CURRENT  VALUES  APE: 


INLLDS 

|RF  RAC 

.  1 0OOOOE  >01 

C ANGLE  • 

•  17«S.33E>00 

Dl 

.1  77800E-02 

Dl  S 

.  SA9S34E  -04 

D3 

.  1 371S0E-Q2 

D3E 

.S8S800E-Q4 

HIASE 

. 3492S0E-01 

NN8 

. 3482S0E-01 

LCAV 

.7*20001-01 

LRNOZ 

2S0190E-02 

LSNOZ 

.  1 8S1**E -  02 

NSRNOZ  • 

.  1 03I4SE  *01 

RkFRAC 

.  8034  31 C  >00 

RIO 

.1921 OSE  *07 

T30 

. COOOOOE  >03 

T70 

.  300000E>03 

1 

INLLOS  R1 0*0 . 2£  >07  » 


NOTE: 

T10 

■ 

. 1 7S52SE>04 

K 

RIO  • 

.  200000E>0  7 

RA 

NOTE: 

T10 

■ 

. 1 7SS25E>04 

k 

RIO  « 

.  200000E*07 

RA 

NOTE: 

T 1  0 

■ 

. 17SS2SE>04 

K 

RIO  • 

.  200000E  *07 

RA 

NOTE: 

T 1  0 

■ 

. 175525E*0« 

K 

RIO  • 

?O0OOOE>O7 

RA 

NOTE. 

T 1  0 

■ 

. 1 7SS2SE*04 

K 

P10  - 

.  200000E  >17 

RA 

NOTE: 

T10 

• 

. 1 7SS2SE  >04 

K 

RIO  ■ 

.  200000E>0 7 

RA 

NOTE: 

T10 

• 

. 1 7SS2SE*04 

K 

P10  - 

.  200000E*07 

PA 

NOTE: 

T10 

• 

. 1 7552SE>04 

K 

Rid  ■ 

.  200900E>07 

RA 

NOTE: 

T10 

• 

. 17SS2SE*04 

K 

RIO  - 

.  200000E>07 

RA 

NOTE: 

T10 

• 

. 1 7SS2SE  >04 

K 

RIO  - 

•200000E-07 

RA 

APNCNOt*  « 


rt»P  SANPtf  IM»UT/0UTP1lT 


NOTE: 

P3  • 

. J8T3J0E  *#S 

PA 

NS 

» 

. 3833641*01 

NOTE: 

P3  • 

287328E*0S 

PA 

NS 

• 

.383364001 

NOTE: 

P3  • 

?873?8E*0S 

PA 

7*5 

• 

363364001 

NOTE: 

P3  • 

. 38T3J8E  *0S 

NS 

. 3833641*01 

NOTE: 

f  3  * 

.  5S732SE  *S5 

NS 

• 

. 383364E*01 

NOTE: 

P  3  • 

.  ?87  320E*  OS 

NS 

• 

. 383364E*01 

NOTE: 

P3  • 

*8?3?8C*0S 

PA 

NS 

• 

.  3833641*01 

NOTE: 

P3  • 

.  J8?328E*0S 

PA 

NS 

• 

. 3S3364E*0I 

NOTE : 

P3  • 

.  J873?8E*0S 

PA 

NS 

• 

. 383364E*01 

NOTE: 

P3  • 

.2873081*05 

PA 

NS 

• 

. 3833641*01 

abRCNdI*  0 


CLAP  SAMPLE  t*RUT/OUTRUT 


L«SI*  RRINART  4  SECONDARY  REACTANT  STORAGE  INRUT  SECTION 


C2M  NAT  BE  STORED  ANY  OF  TNE  FOLLOWING  MAYS.  INPUT  K 


K 

1 

2 

RNASE 

GAS 

GAS 

CONT 

SRN 

CYL 

STENR 

300.8  A 

300.0  K 

STINE 

INFINITE 

INFINITE 

SRtES 

A.IE‘07  RA 

*» .  1  E*0?  RA 

(£000  RSI) 

(£000  RSI) 

RFSYS 

BLD 

■LD 

MATER 

T 1 

Tl 

APPtNDl*  0 


CLAP  SANPLC  JNPUT/OUTPUT 


3  HAY 

Of  ST06ED  ANY 

OF  THE  FOLLOWING  NAYS. 

INPUT  x . 

( 

1 

! 

3 

4 

PHASE 

GAS 

GAS 

LIO 

no 

COHT 

SPN 

CYL 

SPN 

SPN 

STEHP 

300.0  X 

300.0  X 

77. S  X 

77. S  X 

STINE 

INFINITE 

INFINITE 

8 . 6E  *0S  S 

1 .6E»07  S 

<10  DAY) 

<100  DAY) 

SP*ES 

1 ,2£*07  PA 

1  ,2E*07  PA 

1 . 2S*P0 

1 . 2S*P0 

<1000  PSD 

<1000  PSD 

•FSYS 

OLD 

OLD 

PGS 

PGS 

NATE* 

SS 

SS 

SS 

SS 

1 


MC  HAY  DC  STO*£D  ANY  OF  THE  FOLLOWING  NAYS.  INPUT  K. 


K 

PHASE 

COHT 

stemp 

STIHC 

SP*ES 

•FSYS 

HATE* 


I 

GAS 

SON 

38S.S  X 

INFINITE 

«.1E*07  PA 
<6000  PSD 
OLD 
T  1 


GAS 

CYL 

tAA  A  4.' 

JWW . V  A 

INFINITE 

4.1C*07  PA 
<6000  PSD 
OLD 
11 


3 

GAS 
SPN 
77 .  S  L 

8.6E*05  S 
<10  DAY) 
4.1£»07  PA 
<6000  PSD 
OLD 
SS 


4 

GAS 

SPH 

77. S  x 

1 6E*07  S 
<180  DAY) 

A  •  1 £• 07  PA 
<6000  PSD 
OLD 
SS 


APPENOU  0 


clap  sample  input/output 


D2  NAT 

BE  STORED  ANY 

OF  THE  FOLLOWING  WAVS. 

INPUT  K . 

K 

1 

2 

3 

4 

PHASE 

GAS 

GAS 

GAS 

GAS 

CONT 

SPH 

CYL 

SPH 

SPH 

STENP 

300.0  K 

300.0  K 

77. S  (t 

77. S  K 

STINE 

INFINITE 

INFINITE 

3.6E«0S  S 

1  .6E«07  S 

<10  DAY) 

<180  DAY) 

SPRES 

4.1£»07  PA 

4 . 1 E»07  PA 

4.1E*07  PA 

4.1E*07  PA 

<6000  PSD 

<6000  PSD 

<6000  PSD 

<6000  FSJ ) 

RFSYS 

BLD 

BLD 

BlD 

BLD 

HATER 

T! 

TI 

ss 

SS 

2 

AERO -WINDOW  FLUID  STORAGE  INPUT  SECTION 


AWNOIk  S 


CtAA  SAMPLO  iNAUT/OUTAttT 


AM  MAY 

K  UTOAID  ANY 

or  TMC  roiLOMIMO  MAYS. 

INAUT  k. 

k 

1 

! 

1 

0 

AMA5C 

GAS 

OAS 

l  to 

no 

CONT 

SAM 

CYl 

SAN 

SAN 

STIM* 

100.0  k 

100.0  k 

77.0  k 

77. t  k 

ST  INI 

INriNITt 

IMriMITt 

■.■(•OS  s 

1.«(*07  S 

<10  DAY) 

<100  DAY) 

SAOCS 

4 . 1 C  *0 7  AA 

0.11*01  AA 

1 .lt*0«  AA 

1 .01*0*  AA 

<*000  ASt) 

<*000  All) 

<100  AS  1 ) 

<*»0  AS  1  ) 

•rsvs 

■ID 

■ID 

NAS 

HAS 

MATCA 

T  I 

T  1 

ss 

SS 

1 


ANNCNC/lX  0 


CL.  A*  3ANNU  INH’JT /CHJ'IKf 


H10-CS  HAT  9i 

ST0»E0  AHV 

Of  THE  EOlLONIKO  MATS. 

IHPUT  k. 

X 

1 

1 

«. 

J 

4 

PHASE 

Lit 

Lit 

Lit 

Lit 

COHT 

SPH 

CfL 

SPH 

CYL 

STtHP 

100.0  A 

100. 0  K 

100.0  k 

100.0  k 

stine 

imeihite 

IHE iHI TE 

1  HE  1 H 1  TE 

ih? iHiri 

tms 

Mt*0t  PA 

9.IE*»  PA 

1  ATH 

\  Am 

<4*0  PS1> 

000  PSI> 

•esys 

POS 

POS 

prs 

PE# 

NATE* 

T  1 

T 1 

Al 

AL 

k 

S 

PHASE 

L10 

COHT 

SPH 

STEHP 

Mt-IM  k 

STINE 

1  HE  1  HITE 

SPHES 

1  ATH 

PESTS 

»rp 

HATE* 

AL 

S 

liVAi't  jnfn 


APPCNOlX  « 


Cl *p  SAHPLf  INPUT/0UT*IT 


HMH  HAY  BE  STOWD  ANY  OF  THE  FOLLOWING  HAYS.  INPUT  X . 


X 

t 

1 

3 

A 

PHASE 

UQ 

UQ 

UQ 

UQ 

CQNT 

SPN 

CYL 

SPN 

CVL 

STEKP 

300. 0  X 

300.0  X 

300.0  X 

330.0  X 

STIHE 

INFINITE 

INFINITE 

INFINITE 

INFINITE 

SPUES 

t  .  2S»P0 

1  . 15»P0 

1  ATH 

1  ATN 

PFSVS 

PGS 

POS 

PFS 

PFS 

HATE* 

T  1 

T  1 

AL 

AL 

APPCNOIX  8 


CLAP  3 *NPLE  INPUT/OUTPUT 


TO  RESTART  PROGRAM  ENTER  "v'iS« 
TO  STOP  PROGRAM  ENTER  "HO" 


NO 


appendix  a  clap  samplf  input/output 

sample  case  it  OUTPUT  1ST  UNITS) 


i 


CHEMICAL  LASER  ANALYSIS  PR CORAM  (CLAP) 


WRITTEN  BY)  C.L.  ADAMS 
A.L.  AOOY 
R.D.  MASSEV 
C.O.  MIKKELSEN 
«.r,  MORR 
R.L.  06LUKIAN 
R.J.  WALKER 

1  JANUARY  T7 

AERODYNAMICS  GROUP  (DRONI-TOK) 

SYSTEM  SIMULATION  DIRECTORATE 
U.S.  AKMY  MISSILE  RESEARCH  1  DEVELOPMENT  COMMANn 
REDSTONE  ARSENAL*  ALABAMA  35009 

RUN  DATE  1  2/06/70 


COHauSTION  CHEMISTRY  SECTION 


INITIAL  DATA! 


AE*P 

•30l935C"O2  M2 

ALPHA 

•802700E*00 

OEORHE 

Of 

Nl 

2 

atoms  c 

N2 

A  ATOMS  M 

N3 

I 

atoms  n 

NA 

3  ATOMS  f 

WPB 

.II0197E-O2 

KO/S  N2 

WPR1 

•36?160E-02  KB/S  C2K4 

WPR2 

•172A1BE-01 

KG/5  HE 

WPR3 

0.  KB/S  N2 

WPRA 

•571093E-0J 

MO/S  N1E3 

WSR1 

•A3T2S0E-02  KB/S  0? 

WSR2 

s 33851  BE -01 

KO/S  HE 

WSR3 

0*  KB/S  N2 

RESULTANT  DATA  a 

rOAA 

•191592£»0O  Kl  XE/S-M? 

ONEBA 

•3A7901F*02 

ONEOTRW 

•32277 0E*02 

PSIC 

•126969C*02 

PSIL 

•22093|E*B2 

PSILTRW 

• 195801E*02 

• 

•21*SA2E»0B  J/KMOLE 

RC 

•  2O7608E  *01 

RL 

•251301E*01 

RLP 

•22093IE»02 

wtcpi 

•]93609E*00  CFA 

xrcpi 

.1S9B27E-01 

rf- A 

VECP2 

•00O27AE-O1  MT 

xrcP2 

.319653E-01 

HE 

WTCP3 

•15A67AE*00  or 

xrcp3 

•53A772E-01 

nr 

WE  CPA 

•A3S3B1E*00  ME 

XFCP*. 

•  79020 Ofc *00 

HE 

WECP5 

•10SB9SC*00  M2 

xrcps 

•27A632E-01 

M2 

WTCP6 

•22A31TE-01  0 

xrcpo 

•  809UOE-01 

n 

301 


i 


APPEND I*  a 


CLAP  SAHPLF  INPUT /OUTPUT 


LASER  OCVTCC  SECTION 
INITIAL  DATA! 


mrtrac 

n 

•100000E*01 

CANDLE 

• 

•1745337*00 

RAD 

01 

m 

.17/0007-02  M 

D1S 

m 

.6695347-04 

M 

03 

m 

.1371607-02  M 

03S 

m 

.685800E-0* 

U 

OEOMPN 

• 

ZD 

OEOMSN 

m 

ZO 

nbase 

m 

.349ZS0C-0I  M 

NN6 

m 

.3492507-01 

M 

lcav 

m 

.T62000E-01  N 

LPNOZ 

m 

.ZS0190E-0Z 

M 

LSNOZ 

m 

•1BS166E-02  M 

NSPNOZ 

9 

.1030*67*01 

PKPRAC 

m 

.B03431E«00 

P10 

9 

.2000007*07 

PA 

T3« 

m 

.600000E*03  K 

TTO 

9 

.3000007*03 

K 

RESULTANT  OATAJ 


POINT  I  PRIMARY  NOZZLE  EXIT  -  CONOITlONf  BASED  ON  THE  NOZZLE  STAdNATION 
(COMBUSTOR)  TEMPERATURE 


A1 

• 

.1715267*00  S-M2/KM0LE 

AIA1SE 

■ 

•17O097E*O2 

AIA1SB 

• 

.Z6SSSBE»0Z 

01 

■ 

•1457S9E*01 

NMl 

m 

.12*4977*02  K8/KM0LE 

MI 

■ 

.4867057*01 

npnoz 

9 

.4l5]38E*04  S/KMOLE 

PI 

■ 

.5238*97*04 

PA 

PIO 

9 

•200000E*07  PA 

RE1 

• 

.2136347*04 

R1 

9 

.2888847-01  RB/M3 

RIO 

• 

.I70A17E«O1 

K0/M3 

T1 

9 

.271528E*03  K 

T10 

9 

.1755ZSE*04 

K 

POINT  Z  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  EXIT 
TEMPERATURE 


AZ 

• 

.1564217*00 

S-NZ/KMOLE 

02 

* 

•1534547*01 

MM2 

■ 

.12*4977*02 

K8/KM0LE 

NZ 

9 

.4887057*01 

PZ 

9 

.5238497*04 

PA 

P20 

9 

.2000007*07 

PA 

RZ 

m 

.2888847-01 

KB/M3 

RZO 

9 

.1706177*01 

KG/N3 

TZ 

9 

.271SZ8E«03 

K 

T20 

9 

.1785257*04 

K 

POINT  3  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  STAGNATION 
(COMBUSTOR)  TEMPERATURE 


A3 

9 

•  1358917*00  -HZ /MMOLE 

A3A3SE 

9 

.1313157*02 

A3A3SG 

9 

•200000E*02 

D3 

9 

.1616797*01 

MM3 

9 

.400SS1E*01  K8/KM0LE 

M3 

9 

•5302317*01 

nsnoz 

9 

.431 1047*04  S/KMOLE 

P3 

9 

.2395937*04 

PA 

P30 

9 

.917516E*06  PA 

RE3 

m 

.1878297*04 

R3 

9 

.1 860367-01  KB/M3 

R30 

9 

.7367047*00 

KG/M3 

T3 

9 

.6204547*02  K 

T30 

9 

.6000007*03 

K 

M3M1 

9 

.490Z28E*OO 

X3X1 

9 

.152370E«0l 

POINT  4  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  EXIT 
TEMPERATURE 


A4 

9 

.1360957*00  S-MZ/KMOLE 

84 

•  .1613227*01 

HM4 

• 

.400S51C*01  K8/KM0LE 

M4 

•  .5302317*01 

P4 

9 

.2305937*04  PA 

P40 

*  .9175167*06  PA 

R4 

9 

.1860367-01  KB/M3 

RAO 

■  ,736704E*00  ;(G/M3 

T4 

9 

.6204547*02  K 

T40 

•  .600000E*03  * 

M4M2 

9 

.4903287*00 

X4X2 

-  .1523707*01 

302 


"1 


APPCNOIX  R 


CLAP  SAHPCF  INPUT/OUTPUT 


\ 


WINT  5  CONST  ANT-ARC  A  MfXlNR  RfRJo*  EXI7 


AS 

MRS 

PS 

PS 

TS 

\tVtt 


.?o?si8C.oo 
'TSSlAM'ti 
•409S70E*04  PA 
•EOERSEC-01  KS/TO 
.137773C*03  K 

•iaorese.oi 


S-ME/KNOIE 

KO/KNOLE 


«>TNT  «  ISCNTROPIC  EXPANSION  RCAION  EXIT 


OS 

NS 

PSO 

R$0 

TSO 

WK 


point  7 


AO 

NM6 

P* 

RO 

TO 

NONE 


P 

a 

■ 


.577R05E»00  S-NE/KN«.E 
«73Sl40E*01  K9/KN0LC 
•1345SOC*04  PA 
.1E«010E-OI  KR/N3 
.»1SR40E*0E  K 
•  U?0E3E*01 


00 

M6 

POO 

R60 

TOO 

X8XE 


MIRROR  PURGE  CONDITIONS 


0  7 

T70 

X7XE 


. 13*06 EC«Ol 
•300000E*03  K 
0. 


NP7 
R  7WE 


POINT  8  LASER  CAVITY  EXIT 


AS 

NWS 

PR 

PCS 

R80 

180 

>;rxe 


•io^esoe.oi 

•7EOa*1E«01 
•51 7#77t>0A  PA 
•37Sr39E«0S 
•3R7RORE-n 
•  U35REO04 
•257p3iE*01 


S-ME/KHOLF  OR 
R8/KH0LE  NR 
PRO 
R8 

KR/N3  Ti 

*  MORE 


.15704 3E«0I 

•  48040 IF  *0J 
•1 1E70IE*07 
•OEI347E*00  xO/Ht 

•  lOOElOF *04  K 
•E9E3?0E«0| 


.15704 3E«01 
•010003E*0! 

•  I 1E781e*07  PA 

•  0EI547E«00  K0/H3 

•  I ORElOE*04  K 

•  ESES'i’OE  >01 


•E80134E«OE  KG/KMOLC 
•I490E3E-OI 


•I5760EE*0I 
•EER30RE*01 
.03001 IE*OS  PA 
.7R8l4iE-0E  KG/N3 
•573E03E »03  k 
. I505I3E*01 


APPENOI* 


POINT  1 


POINT  2 


POINT  3 


POINT  4 


POINT  5 


t  CLAP  SAMPLE  INPUT/OUTPUT 


PRESSURE  RECOVERY  SECTION 
INITIAL  OATAI 


A  3  At 

• 

.2T5oooe*oi 

A746 

■ 

.3000002*01 

EJECT 

• 

CAE 

ETA12 

• 

.7SOOOOE*Ot> 

OS 

• 

•  1 29000E  *01 

NV5 

■ 

•2020402*02 

kO/KMOLE 

PS« 

9 

.310264E*07 

PA 

P7 

■ 

•1013252*06 

PA 

TOO 

m 

.28l480£*8A  K 

RESULTANT  OATAt 

laser  cavity  exit  and  normal  shock  dieeuser 

ENTRANCE 

AI 

m 

.10ttSAE«0! 

S-M2/KW0LE 

OS 

* 

.1S7092C*01 

MNl 

m 

.?26491£*81 

K8/KH0LE 

Ml 

m 

•?2838CE*0l 

PI 

m 

.5l78YTE*84  PA 

P»0 

m 

.63601 12*05 

PA 

PI 

.788141E-0? 

K0/M3 

RIO 

9 

.3870492-01 

*G/H3 

TI 

m 

. 57326 3t*03 

K 

TJO 

n 

• 14350 ?2*04 

K 

normal 

SMOCK  OlPV'USER  EXIT  ANO  SUBSONIC 

oirruscp  entrance 

At 

■ 

.10ZtSA£*01 

S-Mt/KNOLE 

ETAlt 

m 

•7500002*00 

Ot 

• 

.I576«tE*03 

MV? 

m 

.7264912*01 

trO/KNOLE 

Mt 

9 

.S017SAC»00 

Pt 

m 

.2388912*05 

PA 

PtO 

m 

•303123E*0S 

PA 

Pt 

m 

•158612E-01 

KO/M3 

Pto 

9 

.18AA68E-0I 

K8/M3 

Tt 

■ 

.1316032*04 

K 

TfO 

9 

. 14^58 2£*04 

K 

VtVl 

■ 

.1000002*61 

xtxi 

m 

.100008E«81 

subsonic  oirruscp  exit 

ANO  SUOOEN 

ENLARGEMENT  ENTRANCE 

A3 

9 

•28ll99E*01 

S-M2/KM0LE 

ETA23 

9 

.9699972*00 

03 

m 

.15?692£*Bl 

MV3 

9 

.7264912*01 

KO/KNOLE 

M3 

m 

.17l354£*00 

P3 

• 

.2873202*05 

PA 

P30 

m 

.294029C*0S 

PA 

P3 

.1763361-01 

KG/M3 

P30 

n 

.17B933E-01 

K6/M3 

T3 

9 

.1423762*04 

K 

T30 

9 

.143S82C*S4 

K 

V3V1 

■ 

•ioooooe«oi 

X3X1 

» 

.100000E«OI 

CONST ANT-AREA,  SUBSONIC-SUPERSONIC  EJECTOR  SECONOARr  N0Z2|_E  EXIT 

AA 

9 

.ll9781E*01 

S-N2/KN0LF 

OA 

■ 

.15769*2*01 

MVA 

9 

.726a91E*81 

K8/KH0LE 

MA 

■ 

.7750002*00 

PA 

9 

.190*642*05  PA 

P40 

■ 

.2940292*05 

PA 

PA 

9 

.1357842-01 

K0/N3 

RAO 

• 

.1789332-01 

KO/M3 

TA 

9 

.1223792*04  K 

TAO 

■ 

.1435822*04 

K 

KAMI 

9 

.1OOOOOE*01 

XAXI 

9 

.1000002*01 

CONSTANT-AREA.  SUSSONIC-SUPERSONIC  EJECTOR  PRINARY  NOZZLE  EXIT 

A5 

9 

.3683702*00 

S-M2/KM0LE 

OS 

■ 

.1290002*01 

MVS 

9 

•202040C*0? 

KO/KNOLE 

M5 

■ 

•3833642*01 

PS 

9 

.1935432*05 

PA 

PSO 

■ 

.3102642*07 

PA 

PS 

9 

.S23IS02-01 

K8/N3 

P50 

■ 

•2678S1E*01 

KO/M3 

TS 

9 

.899001E*03 

K 

T50 

■ 

•281A80E*0A 

K 

VSV] 

9 

.2726162*01 

X5XI 

• 

.9902662*00 
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as, -jfr'. 


appCnoi*  n 


clap  »AMPt.r  input  /output 


POINT  € 


POINT  T 


CONST ANT-ARC A«  SUUSONjC-iuPCRSONIC  CJCCTOR  CHIT  ANO  5 J6 SOnIC 

oicposcr  cntrancc 


AA 

•  .1SAA1BC*01 

S”NC/KNOtr 

AA 

HNA 

•  • 1 3A700C*#? 

KA/KNOLE 

HA 

PA 

■  .B9«n«C*0S 

PA 

P60 

PA 

•  .A74JJJC-01 

K8/N3 

RAO 

TA 

•  .»I39«C*I« 

K 

TAO 

WAN  1 

p  .37?A1AC*01 

(All 

subsonic  oirruscR  cut 

AT 

■  4A9«54C«01 

S-M2/KM0LC 

CTAAT 

•7 

p  .13«?7AC*01 

MW7 

m7 

p  .142A9AOOO 

P7 

P70 

•  .10lUl£«(6 

PA 

R7 

P7# 

p  .74«l«4C-Al 

KS/M3 

T7 

T70 

p 

K 

NT  (11 

*7*' 

«  .19«eC7C*«l 

,13«7*4C»01 
.A»S?29C»00 
.10S3TSC*OA  PA 
.7587751-01  XO/N3 
.*M3*AC»0A  K 
,mom»oi 


.S7S5*X«»« 
.13A7MC*«2  KO/KMOLC 

.i#um*os  pa 

.T3700C-01  kO/HJ 
.»T*S0C*®4  k 
.3TCA1AC*#! 
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APpEnOI*  a 


clap  sample  input /output 


SYSTEM  CALCULATION  SECTION 


initial  oatai 


freact  ■ 

IRfNA/MMM 

NBANK  • 

2 

reject  • 

1 

RTIHE  • 

.6BOOOOE *02  S 

MPP3  • 

.19*64 SE*61 

KB/S 

REACTANT  S70RA0C  METHOD 

REACT 

C2«4 

HE 

NF3 

OP 

PHASE 

bas 

BAS 

BAS 

BAS 

CONT 

SPM 

CYL 

SPH 

CYL 

STENP 

390.9  A 

300.0  K 

360.0  K 

300.0  K 

STINE 

infinite 

INFINITE 

INFINITE 

infinite 

seres 

*  .U*OT  PA 

4,1E*0?  PA 

1.2E*07  PA 

4.IE«07  PA 

46090  PSD 

<6000  PSI) 

(1000  PSt> 

(6000  PSD 

RESTS 

BLO 

BLO 

BLD 

MATER 

TI 

TI 

ss 

TI 

REACT 

N2-AW 

H20-CS 

HMH 

IRFNA 

*U5E 

AAS 

L16 

LIB 

LIB 

CONT 

SPM 

SPH 

CYL 

SPH 

STENP 

300.0  K 

368-398  K 

306. *  K 

300.0  K 

STINE 

infinite 

INFINITE 

INFINITE 

INFINITE 

SERES 

4.1E*C7  PA 
16000  PSI5 

1  ATM 

1 , 25*P0 

1.ES-P0 

RESYS 

BLO 

REP 

PBS 

PtoS 

MATER 

TI 

al 

TI 

AL 

RESULTANT  DATA! 


SYSTEM  SCALE -UP  E ACTOR 
KL**  •  .90l36TC*00  KMOLE/S 

LASER  DEVICE  SYSTEM  VOLUME/MASS 


MINJ 

m 

.5937B7E*02 

KB 

hcb 

9 

.0SS3B7E*02 

KB 

HBASE 

9 

*7B572TE*0? 

KB 

VCOMO 

■ 

.592742E-01 

M3 

hcav 

9 

.I3210H«02 

KG 

YCAV 

• 

.S49746E-01 

m3 

man 

9 

.2808932*0? 

KG 

VAN 

V 

•2I65I7E-01 

M3 

HCS 

9 

.340163E«03 

KB 

VCS 

■ 

.3SSS70E*00 

M3 

HOPT 

9 

,72*74SE*0J 

KB 

VOPT 

■ 

. 19B601E*Ol 

m3 

MOS 

9 

. 96244 7E*02 

KB 

HL.RRE6 

9 

.669069E«02 

KB 

MI  L  INF 

9 

•  2S0O33E*  63? 

KB 

hlohox 

9 

IisFol4£*04 

KB 

VLBHOW 

■ 

.24774*2*01 

m3 

MLRT 

9 

. 11*26 TE*05 

KB 

VLRT 

* 

.I342IIE*02 

M3 

HLOS 

9 

.130472E*05 

KB 

FLOS 

% 

.ISOiO6E»02 

m3 
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APPCHOl*  ft 


clap  samplf  input/ootput 


PPCSSURE  recovery  system  volume /mass 


MSUPO 

■ 

.2S0tSfC«l3 

XQ 

VSUPO 

■ 

•51?733C*00 

m3 

msubo 

KJ 

.94l7t*C«0? 

XO 

VSUBO 

■ 

•233867E *00 

m3 

MCJCCT 

m 

.I04«93E*0S 

XO 

vrjecr 

* 

.405109E  *0? 

m3 

MCRPE8 

m 

.1151471*03 

XO 

ME  LI  HE 

m 

.79004 7t*61 

XO 

MPPMOV 

m 

.I0?3*ft *09 

XO 

VPPM09 

• 

.70?57lC*0p 

m3 

ME*T 

* 

.397199C*04 

KS 

VERT 

m 

.3774*9E*0l 

m3 

mpps 

• 

*14$086£*49 

KS 

VPRS 

m 

.740334E.0? 

m3 

SYSTEM 

VOLUME /MASS  SUMMAPY 

MLOS 

■ 

.I3047?E*05 

XO 

VLOS 

* 

.19t«00E*02 

m3 

mPPS 

m 

.i40oa«c*es 

XO 

VPRS 

n 

.740334E*0?  m3 

MM  I  SC 

m 

.3«2874E*03 

XO 

MTOTAL 

m 

T?8^1S7E*05 

XO 

VTOTAL 

u 

•0993202*0? 

m3 

VSVSTM 

m 

.1790O4E*O3 

m3 

WflASE 

m 

.749000C*01 

M 

LLOS 

m 

.109960E*00 

M 

LP*S 

m 

.!3l0ME«0t  M 

LBXOCV 

m 

.239936C«0? 

M 

mxdcv 

m 

.820490E  *01 

M 

MPXDEV 

m 

.60l31SC«01 

M 

VftkOEV 

m 

. 1 1837§E*0* 

m3 
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’  .i  ;TT*'LL*'S»*l. 


APMfNOI*  ft 


CLAP  SAMPLF  t M*UT  /-OUTPUT 


r 


’i 


t 

i 


CHEMICAL  LA'JTW  ANALYSIS  AMMaX  (CLAP) 

BRITTEN  BVi  C.L.  AOAHS 

A.L.  AOOY  , 

ft.D.  MASSEY 
C.O.  MIkkELSEN 

a.r.  NONA  i 

ft.L.  08LUKIAN 
ft. J.  MALKFft 

I  JANUAftY  77 

AtftOOYNANICS  GftOUP  (OMOMI-TO*) 

SYSTEM  SIMULATION  OlftCCTOftATr 
U.S.  AftMY  MISSILE  ftESEAftCN  i  DEVELOPMENT  COMMAND 
BEDSTONE  AftSCNAL.  ALABAMA  35809 

ftUN  DATE  1 7/06/78 


COMBUSTION  CMEMISTBY  SECTION 


INITIAL  OATAi 


ae*p 

m 

.36193SC-0? 

ME 

alpha 

• 

.80E700C*00 

oEOwmf 

• 

0* 

M! 

6 

i 

ATOMS  C 

N2 

« 

4 

ATOMS  M 

NS 

■ 

1 

ATOMS  N 

NA 

• 

3 

ATOMS  r 

NPB 

■ 

8. 

K8/S  N? 

1 

I 
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} 

1 


APPENOlX  ft  CLAP  SAMPLF  INPUT/OUTPUT 

SAMPLE  CASE  ?l  OUTPUT  IFNGINEERING  UNITS* 


CHEMICAL  LASER  ANALYSIS  PROGRAM  (CL*P) 

WRITTEN  BY  I  C.L.  ADAMS 
A.L.  ADOV 
R.O.  MASSEY 

C.D.  mirkelscn 
».r.  mopp 

R. L.  06LUKIAN 

S. J.  WALKER 

I  JANUARY  7T 

AEROOYMAMICS  GROUP  (ORONI-TOK) 

SYSTEM  SIMULATION  DIRECTORATE 
U.S.  ARMY  MISSILE  RESEARCH  l  DEVELOPMENT  COMMANn 
REDSTONE  ARSENAL*  ALARANA  35809 

RUN  DATE  l?/0ft/70 


C OMR US T ION  CHEMISTRY  SECTION 


INITIAL  DATA! 


AFXP 

•S61000E*01 

IN? 

ALPHA  • 

•  80?700E  *00 

DEORHE 

Of 

N1  - 

? 

ATOMS  C 

M? 

4 

atoms  m 

M3  » 

I 

ATOMS  N 

M4 

3 

ATOMS  f 

WPG  - 

*116197E*01 

GN/S  N? 

MPR1 

.3ft?u«r*oi 

GM/S  C?M4 

WPP?  • 

.17?41AE*0? 

CM/S  HP 

WPR3 

0. 

OM/S  N? 

WPR4  • 

•5710P3E*0? 

OM/S  Nlf3 

WSR1 

.437?S0f*01 

OM/S  OE 

VSR? 

•33ftS10E*0? 

GM/S  ME 

WSR3 

0. 

OM/S  N? 

RESULTANT  DATA! 

PDAA 

•  .1?3G07E*00  GMOLE/S-IN? 

OMCftA  ■ 

•3A7901E*0? 

ONE ft TRW 

.JHl70E*« 

PSIC  ■ 

*1?69A9E*0? 

PSIL 

PSIL TRW  ■ 

.195«01C*0? 

R 

.5H3;fE*M 

CAL/OMOLE 

RC  ■ 

.?076«8E»01 

RL 

.2S1301E«OI 

RLF  • 

»??0931E*0? 

wfcpi 

.  193ft  09E  *00 

Cf  A 

XPCP1  • 

•  I59®?7E“0I 

CF4 

wtcp? 

.080274E-01 

NT 

XPCP?  ■ 

.3196S3E-01 

HE 

WTCP3 

.1S4*74E»00 

Of 

XPCP3  ■ 

*53A77?E-0I 

or 

MFCP4 

.43S3ftlE*00 

HE 

XFCP4  • 

.79»?00E*00 

we 

wfcps 

.10S89RE*00 

N? 

XPCPS  » 

*?7463?E-01 

N? 

wrcPft 

•EEA3I7E-01 

0 

xrcPft  - 

.0091 lftE~01 

D 
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APPEMOIX  fi 


CLAP  SAMPLE  INOUT/OUTPUT 


LASER  DEVICE  SECTION 
INITIAL  DATA: 


BRERAC 

■ 

•  1 OQ009E*01 

CANDLE 

m 

,100000E*02 

DEG 

01 

m 

.700000E-01 

IN 

D1S 

9 

.263596E-02 

IN 

03 

n 

.S40000E-01 

IN 

035 

m 

.270000E-02 

IN 

OfOMPN 

m 

2D 

OEOwSN 

'2 

20 

HflASE 

9 

•137500E*01 

IN 

HNB 

9 

•137500E*01 

(N 

LCAV 

» 

.303000E*01 

IN 

LPNOZ 

U 

.9B5000E-01 

IN 

LSNOZ 

m 

.72903OE-01 

IN 

NSPNOZ 

9 

.iCOPAC.E‘01 

PKFRAC 

m 

.803A31E*00 

P10 

9 

•290075E*03 

PSIA 

T30 

m 

.600000E*03 

K 

T70 

9 

.300000E*P3 

K 

RESULTANT  OATAf 

POINT  1  PRIMARr  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  STAGNATION 
(COMBUSTOR)  TEMPERATURE 


A1 

• 

.I20594t*03  S-IN2/LBM0LE 

AIA1SE 

■ 

.176697E*?2 

A i AlSG 

9 

.265SS8E»02 

81 

■ 

.145759E*01 

MWI 

9 

.124497E*02  LBM/LBMOLE 

Ml 

St 

.4B8705E<01 

NPNOZ 

9 

•188302E*04  S/LBMOLE 

PI 

at 

.3929I9C*02 

TORR 

PIO 

9 

•290075E*03  PSIA 

RE1 

at 

.?1363^E*04 

RI 

9 

.2B8084E-04  GM/CM3 

RIO 

m 

. J706) >E“02 

GM/CM3 

Tl 

U 

•271S28E*03  K 

T10 

m 

.175S25E*04 

K 

PO!“T  2  PRIMARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  EXIT 
TfMPERaTURE 


A? 

■ 

•109974E*03 

S-IN2/LBM0LE 

02 

•  .  53454E*01 

MW2 

9 

.124497E*02 

LBM/LBMOLE 

M2 

»  .  /88705E*01 

P2 

9 

.392919E*02 

TORR 

P20 

•  .290075E*03 

PSIA 

R2 

9 

.28888AE-0* 

GM/CMJ 

R2 

•  .170617E-02 

GM/CM3 

T2 

9 

•271528E*03  K 

T20 

•  .I7552SE*0* 

K 

POINT  3  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  STARVATION 
(COMBUSTOR)  TEMPERATURE 


A3 

• 

.95329AE*02  S-IN2/LBM0LE 

A3A3SE 

9 

. 13E 315E*02 

A3A3SG 

9 

.200000E*02 

03 

9 

•161679E*01 

MM3 

9 

.400051E*01  lbm/lbmole 

M3 

9 

.530231E*01 

NSN0Z3 

9 

.I95344E*04  5/LBMOLE 

P3 

9 

.I797I0E*O2 

TORR 

P30 

9 

.I33074E*03  PSIA 

RE3 

• 187829E*04 

R3 

9 

•186036E-04  GM/CM3 

R30 

9 

. T36704E-03 

GM/CM3 

T3 

9 

•620^54E*02  K 

T30 

9 

•600000E*03 

K 

W3W1 

9 

.490228E*09 

X3X1 

9 

•152370E*01 

POINT  A  SECONDARY  NOZZLE  EXIT  -  CONDITIONS  BASED  ON  THE  NOZZLE  EXIT 
TEMPERATURE 


A4 

•  .956835E*C2 

S-IN2/LBM0LE 

04 

-  .I61322E*0I 

MW4 

-  .400551E*01 

LBM/LBMOLE 

M4 

■  •530231E+01 

P4 

»  .179710E*02 

TORR 

P40 

•  .133074E*03 

PSIA 

R4 

»  .186036E-04 

GM/CM3 

R40 

■  .736704E03 

GM/CM3 

T4 

•  .620454E»02 

K 

T40 

»  .6000001  03 

K 

M4N2 

«  ,490228E*00 

X4X2 

■  .  152370E*0i 
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APPENOIX  6 


CLAP  SAMPLF  INPUT /OUTPUT 


POINT  5  CONSTANT-AREA  MIXING  REGION  EXIT 


AS 

• 

.20565RE*03 

S-IN2/LVM0LE 

OS 

-  .1579435*01 

NWS 

■ 

.73SURF«01 

LON/LOMOLE 

MS 

*  <4004015*01 

PS 

■ 

.3072035*02 

torr 

PSO 

•  .0459205*04 

TORR 

RS 

■ 

GM/CM3 

RSO 

•  » 42154 75-0'i 

ON/CM 3 

TS 

V 

•1377735*03 

X 

T50 

■  .1002105*04 

K 

VS  V* 

■ 

.1490235*01 

XS»2 

•  .2523705*01 

POINT  6  IS5NTROPIC  EXPANSION  REGION  EXIT 


A« 

■ 

.4002405*03 

S-1N2/L0M0LE 

00 

■  .1379435*01 

MV6 

m 

.735UR5«01 

LOM/LOMOL5 

MO 

•  .0109935*01 

P8 

■ 

.100*205*02 

torr 

POO 

■  .0459205*04 

TORR 

RO 

■ 

.1299105-04 

0M/CM3 

RiO 

•  .4215475-03 

OS /CM  3 

TO 

■ 

.9150405*02 

K 

TOO 

■  .1002105*04 

K 

W«W2 

• 

.1490235*01 

X0X2 

•  .2523705*01 

POINT  7  MIRROR  PUROE  CONDITIONS 

•7  ■  .1349625*01  MW 7  ■  .2001345*02  L0M/L0M0C5 

T70  »  .3060005*03  K  W7 M*  •  .1440*35-01 

ITU  •  0. 

POINT  0  LASER  CAVITY  EXIT 


AS 

• 

.7109155*03  S-IN2/L0M0L5 

00 

■  .1576425*01 

MW8 

• 

.7204915*01  LOM/LOMOLl 

MO 

•  .22*3005*01 

PR 

m 

.307*405*02  TORR 

POO 

•  .4770475*03 

TORR 

RrR 

• 

.375*355*03 

RO 

•  .7001415-05 

0M/CM3 

RRO 

.3070445-04  GM/CM3 

TO 

■  .5732635*43 

X 

tro 

m 

.1435*25*04  X 

MOM* 

•  . 15051 3C<0» 

X0X2 

m 

.2574315*01 

APPCNOIX 


POINT  I 


POINT  2 


POINT  3 


POINT  4 


POINT  5 


0 

CUP 

SAMPLE  INPUT/OUTPUT 

PRESSURE  RECOVERY  SECTION 

INITIAL  DATA! 

A3A2 

■ 

.275000E+01 

A7A6 

a 

.30000000! 

EJECT 

• 

CAE 

ETA12 

m 

•750000E*00 

OS 

• 

.129000E«01 

MM5 

a 

.202040E*02 

LBM/LBMOLE 

PSO 

• 

.450000003 

PSIA 

P7 

m 

,760000E*03 

TORR 

tso 

■ 

•281*80E*04 

K 

RESULTANT  DATA: 


LASER  CAVITY  EXIT  ANO  NORMAL  SMOCK  DIFFUSER  ENTRANCE 


A1 

* 

.718915E*03 

S-IN2/LBM0LE 

01 

•  .157692E*01 

MMl 

• 

.726991E*01 

LBM/LBMOLE 

Ml 

-  .228388E*01 

pi 

■ 

.387S40E«02 

tor  9 

P10 

-  .477047E*03 

TORR 

RI 

■ 

.788141E-0S 

GM/CM3 

RIO 

»  .3B7049E-04 

0M/CM3 

T1 

■ 

.573263E*03 

K 

T10 

•  ,143SB2E*04 

K 

NORMAL  SMOCK  DIFFUSER  EXIT  ANO  SUBSONIC  OTFPUSER  ENTRANCE 


A2 

•  .71S915£*03 

S-IN2/LBM0LE 

ETA12 

* 

•750000E*00 

02 

■  .!57692t*01 

MM2 

9 

.726491E*01 

LBM/LBMOLE 

M2 

-  .561 754e*00 

P2 

■ 

.  1 79183E*03 

TORR 

P?0 

■  .227361E»03 

V  ORP 

R2 

» 

.15861 2E-04 

GM/CM3 

R20 

a  .184468E-04 

0M/CM3 

T2 

9 

.131603E*04 

K 

T?0 

a  .143SB2E*04 

K 

W2MI 

m 

•  100000E*01 

X2X1 

a  .  100000E>01 

SUBSONIC  DIFFUSER  EXIT 

ANO  SUOOEN 

ENLARGEMENT 

ENTRANCE 

A3 

a  .197702E*04 

S-IN2A.BM0LE 

ETA23 

m 

•969997E*00 

*3 

a  .157692E*01 

MM3 

9 

•726491E*01 

LBM/LBMOLE 

M3 

a  .1713S4E*00 

P3 

• 

•215514E*03 

TORR 

P30 

a  .220S40E*03 

TORR 

R3 

m 

.176336E-04 

GM/CH3 

R30 

a  .178933E-04 

GM/CM3 

T3 

rj 

.I42376E*04 

K 

T30 

a  .143S82E*04 

K 

M3MI 

m 

• 100V00E*01 

X3XI 

a  •  100000E*0I 

CONSTANT-AREA.  SUBSONIC-SUPERSONIC 

E.IECTOR 

SECONDARY  NOZZLF  EXIT 

A4 

a  .8421 38E  *03 

S-IN2A.BM0LE 

64 

a 

•157692E*01 

MW4 

a  .726491E*01 

LBM/LBMOLE 

M4 

a 

»775000E*00 

P4 

a  .1425S9E»03 

TORR 

P40 

.220540E*03 

TORR 

R4 

a  .135704E-04 

GM/CM3 

RAO 

■ 

.178933E-04 

0N/CM3 

T4 

a  .122379E*04 

K 

T40 

a 

.143582C*04 

K 

W4W1 

•  *100000E<01 

X4X1 

a 

.  1 OOOOOE*01 

CONSTANT-AREA.  SUBSONIC-SUPERSONIC  EJECTOR  PRIMARY  NOZZLE  FXIT 


A5 

■ 

.258989E*03 

S-IN2/LBM0LE 

05 

-  .129000E*01 

MMS 

a 

.202040E+02 

LBM/LBMOLE 

M5 

■  »j83364E*01 

PS 

a 

. 145169E*03 

TORR 

P50 

a  .450000E*03 

PSIA 

RS 

a 

.523150E-04 

GM/CM3 

R50 

-  .267851E-02 

GM/CK3 

TS 

a 

.899001E*03 

K 

T50 

■  ,281480E*04 

K 

MSMl 

a 

.272616E*01 

X5X1 

a  ,980?66E*00 
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CLAP  SAMPLE  INPUT/OUTPUT 


POINT  A 


POINT  7 


CONST ANT -AREA »  SUBSONIC-SUPERSONIC  EJECTOR  EXIT  AND  SUBSONIC 
OIEEUSEP  ENTRANCE 


An 

.U0ll3E*04  S-IN2/LBMOLE 

86 

•  •I367?6E*01 

MW6 

.136700E*02  LBM/LBMOLE 

M6 

■  .4BS229E*00 

PS 

.6737I9E*03  TOPP 

P60 

■  .7903T9E403 

TORR 

R6 

«  .676222E-04  GM/CN3 

R60 

-  .7SB72SE-OA 

GM/CM3 

To 

■  .2183O0E*04  A 

T60 

*  ,226346E404 

X 

W6W1 

v  »372M6E*01 

X6X1 

*  .198027E*01 

subsonic  orrrustR  exit 

AT 

■  .33033«JE*0A  S-1N2/LBM0LE 

ETA67 

■  ,V75563E*00 

GT 

•  ,I387Z;6C*01 

MN7 

•  .13670BE402 

LBM/LBMOLE 

MT 

■  .1A2*PCE*60 

P  7 

•  .T60000E*03 

TORR 

PTO 

m  *7U06SEH3  TORR 

RT 

W  .732439E-04 

GM/CM3 

R7« 

■  .T40184E-04  GM/CM3 

T7 

■  .227450E*04 

K 

T78 

■  .22RS*6E*34  K 

M7MI 

■  .372M6E>01 

X7X1 

•  .1980271*01 

APPENOl*  0 


CLAP  SAMPLE  INPUT /OUTPUT 


system  CALCULATION  SECTION 
INITIAL  DATA! 


ERE ACT  ■ 

IRENa/MMH 

NBANK 

m 

? 

NPJECT  ■ 

VpP3  ■ 

I 

•1896A5E*0A 

6M/S 

REACTANT 

RTIME  ■  .600000£«0?  S 

STORAGE  METMOO 

react 

C2M* 

HE 

NE3 

0? 

PHASE 

DAS 

gas 

GAS 

GAS 

CONT 

SPM 

cru 

SPH 

CYL 

STtMP 

300*0  K 

300.0  K 

300.0  K 

300.0  K 

stime 

INElNITE 

INElNITE 

INElNITE 

INElNITE 

SPRES 

A.lE*07  PA 
(6000  PSII 

A.IE*07  PA 
(6000  PSD 

S.2E»07  PA 
(1800  PSD 

A.fE*07  PA 
(6000  PSI) 

RESTS 

OLD 

bld 

OLD 

OLn 

MATER 

TI 

TI 

ss 

TI 

react 

N2-*W 

H20-CS 

MMN 

IRENA 

PHASE 

GAS 

LIP 

LIB 

LIO 

CONT 

SPM 

SPH 

CYL 

SPH 

STEMP 

300*0  K 

368-300  K 

300.0  K 

300.0  K 

stime 

INElNITE 

INElNITE 

(NETNITE 

INElNITE 

SPRES 

A.1E*07  PA 
(6000  PSD 

I  ATM 

!.25*P0 

1 .25*P0 

RESTS 

BIO 

REP 

PGS 

PGS 

*(AT£R 

TI 

*L 

TI 

AL 

RESULTANT  DATA I 


SYSTEM  SCALE-UP  *  ACTOR 
RLP  »  .90IS6TE-03  3M0LE/S 


LASER  DEVICE  SYSTEM  VOLUME/MASS 


MINJ 

■ 

•I11066E+03  LBM 

aM 

• 

. 166$83E*03  LBM 

MPASE 

■ 

.1T3223E*03  LBM 

VCOMB 

MCAV 

9 

.511697E«02  LBM 

VCAV 

maw 

9 

.636901£«02  '  BM 

YAW 

MCS 

9 

*7A993IC*03  LBM 

VCS 

MOPT 

9 

.I59779E*0A  CBM 

VOPY 

MOS 

9 

*212l93E*03  LBM 

mlr^eg 

9 

•167S04E*03  LBM 

MLLINE 

9 

.570BA9E.92  LBM 

MLOHOW 

9 

•33sSi32*94  LBM 

VLDitOW 

■ 

MlRT 

9 

.2S*120E»05  LBM 

VLRT 

■ 

MLOS 

9 

.2876*2E»05  LBm 

VLDS 

■ 

•209325E*01  ET3 
.194141E*01  ET3 
•7646E?E*00  ET3 
•125S68E*02  ET3 
•70135 3E*02  ET3 


.87A9>AE*02  ET3 
473H1E«33  ET3 

•5oF*5?E*83  TT3 


alrtmmiiiiimt  .  jo* _ 
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APPENDIX  s 


CLAP  SAMPLE  INPUT/OUTPUT 


PRESSURE  RECOVERY  SYSTEM  VOLUME/MASS 


MSURO 

9 

.552l67E«03  LBM 

VSUPO 

■ 

• 18I070E*92 

FT3 

MSUBD 

9 

•207613E*03  LBM 

VSUBO 

• 

•825893E*01 

ET3 

meject 

9 

„2308<>9E*05  LBM 

VEJECT 

9 

•245474E*04 

FT3 

mtrreg 

■ 

.2S3BSSE«03  LBM 

MELINE 

■ 

•16751BE«02  LBM 

MPRHO* 

9 

.24lil2E«05  LBM 

VPRHOM 

9 

•2481 I 1E*04 

FT3 

MERT 

m 

.S7S665E»0A  LBM 

VERT 

m 

•133359E*03 

FT3 

MPRS 

9 

•328679E*05  LBM 

VPRS 

m 

•261447E«04 

FT3 

systfm 

VOLUME/MASS  SUMMARY 

MLOS 

m 

•2B7642E*05  LBM 

VLOS 

9 

•561452E«83 

FT3 

MPRS 

9 

.328679E»0S  LBM 

VPRS 

9 

•26I4A7E*04 

FT3 

MMlSC 

* 

.800000E*03  LBM 

mtotal 

• 

•  62O21E+05  LBM 

vtotal 

9 

•317592E*84 

FT3 

VSYSTM 

9 

•635184E*94 

FT3 

WBASE 

« 

•293S62E+03  IN 

LLOS 

9 

•747904E*01 

IN 

LPRS 

m 

•937l50E*03  IN 

LRXOEV 

u 

.944629E*03  IN 

V8XDEV 

9 

•323028E*03 

IN 

HMXOEV 

m 

.236738E»03  IN 

VBXDEV 

9 

•418048E*05 

FT3 

3J_» 
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